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Mail it 

With Telewriter-64 



■ BURN IT 

Find Best Buys 
In Heating Fuels 

■ EXPAND IT 

Get More from 
The DIR Command 
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PLUS: In-Depth Product Reviews, Puzzles, 
Answers to Technical Questions 
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Educational Level for the Radio 
Shack* Color Computer 

CHILD WRITER 32/64K disk $54.95 

(network version 32/64K) $99.95 

CHILD FILER 32/64K disk $54.95 

(network version 32/64K $99.95 

CHILD CALC 32/64K disk $54.95 

(network version 32/64K) $99.95 

Elementary Level Series TBA 



MEMO WRITER 64K disk $64.95 

(network version 64K) $129.95 

LIST MANAGER 64K disk $64.95 

SIMPLE CALC 64K disk $64.95 

Home Use Level Series TBA 



BUSINESS WRITER $99.95 
64K disk 

BUSINESS MANAGER $99.95 
64K disk 

BUSINESS CALC 64K disk $99.95 

Business Level Series TBA 



PROOFREADER $34.95 

(20,000 words) 32/64K 
MASTER PROOFREADER $54.95 

(50,000 words) 64K 
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A MUST FOR: 

High School Students 

The College Entrance Examination 
Board CCEEB) has chosen Pascal for its 
college advanced placement computer 
science test. DEFT Pascal Work- 
bench provides all -.he Pascal program- 
ming tools you need to prepare for this 
test on your Color Computer. 



College Students 

The DEFT Paacal Workbench gives 
you the software you need to do your 
Pascal programming homework at 
home on your Color Computer. 



Professionals 

Most of the programming features 
found on the mainframes and minis used 
in business and science are available on 
the Color Computer with DEFT Paacal 
Workbench 



Hobbyists 

Has the extensions necessary to quickly 
do any Color Computer programmmmg 
job without giving up execution speed. 
DEFT Paacal Workbench helps you 
get the job done. Directly access as- 
sembler language routines and hard- 
ware registers from Pascal. 



R.S. Cat.# 90-5002 
$89.95 



$39.95 
RS#90-5001 



DEFT 
Bench 



$59.95 
RS#90-5000 
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HOT CoCo Magazine - (March 1985) 
-What sets .he DEFT product apart ,s .he ex.en. of 
* coverage H provides ,he CoCo user w,,h a ^ 
compatible .mp.ementat.on of standard PasTa 7 
long w .,h many useful e.tens.oos for string hano 
Img. absolute memory access, and the com- 
P. ation of septate program modules That's qu.te 

DEFT ^Pa ST" ** ° n a 32K C °"^ 

DEFT s Pascal supports real (that ,s. float.ng-po.nt) 

, MdnV C0C0 -Market languages 
handle only integers; th.s Pascal gives you full- 
bore computation capability.' 



RAINBOW Magazine - (November 1984) 

"The DEFT Systems people have put together a pack- 
age which is a complete Pascal and/or assembly pro- 
gramming environment that is reasonably priced and 
works like a champ. " 

"DEFT Bench and DEFT Pascal remain an excellent 
example of what can be accomplished in the CoCo 
world. The entire package gives you all the necessary 
tools to learn Pascal. If you already know Pascal, then 
it gives you a total development environment. No- 
thing is missing, there is nothing else to buy." 
"Any college applicant attempting to obtain advanced 
credit will be required to know Pascal in order to 
complete the exam DEFT Bench and DEFT Pascal 
provide an excellent learning environment. The entire 
package is impressive. It is very well-written and 
extremely easy to use. In all the years I have been 
looking at software packages, never have I seen so 
offered for so little." 



DEFT Extra Only $39.95 

The perfect addition to your DEFT Pascal or DEFT 
Pascal Workbench. DEFT Extra is a library of gaming 
and direct file I 0 routines with graphics routines that 
provide Extended Basic's graphics capabilities in all 8 
graphics modes. Full DEFT quality documentation and 
sample Paint program included, (requires 64K> 

Available 
. By Express Order 

At Your Local 
Radio /hack Store! 

Also Available in Canadian Radio Shack Stores! 

All DEFT software and programs developed with DEFT software 
are BASIC ROM independent and use all of the memory in your 
Color Computer without OS-9. All you need is DEFT software and 
a Tandy Color Computer with Extended Disk BASIC, at least 32K of 
RAM and One Disk Drive. With DEFT Pascal ($59.95) you will also 
need a text editor to write your programs. PBJ WORD-PAK compati- 
ble upgrades and Educational discounts available. Dealer inquiries 
welcome. 

Orders and Sales Information 1-800-992-DEFT 
Technical Assistance 1-301-253-1300 



3-D Graphics Sampler 
Only $29.95 

Do 3 Dimensional Imaging 
from Pascal. Define an object by 
specifying points and lines. 
Then, with 3-D graphics library 
procedure calls, Rotate, Zoom 
and Move your 3-D Skeletal Ob- 
ject(s>. All Source Files 
Included 



.II.i'UI.i 

SYSTEf 



P.O. Box 359 
Damascus, MD 20872 

Quantity of Each: _ DEFT Pascal _ DEFT Bench 
DEFT Extra _ DEFT Pascal Workbench _ 3-D Graphics 

Method of Payment (check one) □ Check Enclosed 
□ VISA □ Master Card □ COD 



Account Number 



□□□□ 



Card Expiration Date / | || | 
Signature 



su* □□ zip □□□□□ 



All orders are shipped UPS within 24 hours of receipt Add 4% for shipping and handling; 
Maryland residents add 5% for State Sales Tax; add $2.00 for COD. 
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30 Directory Assistance, wuuam & Bonneii 

Make better sense out of your 
disk directory screens. 

34 Mail It with Telewriter-64, j.d. German 

Convert this popular word processor 
to handle mailing lists. 

37 Halt Thief, Wade dense 

Listen for clues to capture the crook. 

45 Mathematics Helper, Wayne McArthur 

Let your CoCo do complex math formulas. 

48 Finding Firewood Best Buys, Deibert a. 

Calculate which heating fuel 
is the best buy. 



Baker 



53 Math Invasion, Simon cm 

Answer the math problems correctly 
and save the world. 

55 Parallel Processing with Color Logo, David Meredith 

Simulate sophisticated computer operation. 

63 Linked Lists, Bruce Bauder 

Try this effective sorting method. 

68 Tame Your Reset Button, Robert Gauit 

Control how your CoCo resets itself. 

70 Teacher Helpers, James w. wood 

A CoCo can be the teacher's best friend. 



DEPARTMENTS 



5 Digressions, Michael £ Nadeau 

Resisting temptation. 

6 Instant CoCo Directory 

8 How to Use HOT CoCo 

9 Letters to the Editor 

12 Doctor ASCII, Richard E. Esposito 

Answers to your questions. 

14 Mind busters, Richard Ramella 

Enter the Wild Blue Yonder. 

18 The Computer Room, Scott L Norman 

Appropriate technology and the CoCo. 



20 Reviews, edited by J. Scot Finnie 

Marooned, Trivia Fever, ChesSD, 
Personal Finance, and more. 

72 6809 On Line, Bobby Ballard 

Setting up your own BBS, Chapter 2. 

73 Reader's Forum 

74 Assembly 101, James and Victor Perotti 

Create a nondestructive cursor. 

76 The Learning Page, Nancy Kipperman 

Simulating real life on the CoCo. 

78 Product News, J. Scot Finnie 

D.P. Johnson, Mark Data, Dorsett, 
Four Star Software, Polygon, and more. 

80 The Corner Office, Jeff Deiray 
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J&M's New JFD-CP Disk Controller Speaks for Itself ! 




JFD-CP DISK CONTROLLER $149 

Our new JFD-CP has redefined the state-of-the-art 
for Color Computer users. Gold contacts and fully 
buffered I/O lines ensure maximum reliability, and 
the JFD-CP is plug compatible with both the 
original COCO and the COCO-2. 

NeWjDOS 1.2 

JDOS implements all RS DOS commands, plus 
many more, including: 

• auto line numbering 

• error trapping 

• baud rate selection 

• OS/9* boot from floppy or hard drive 

• Memory Minderf— the most advanced disk drive 
analysis system on the market 

(Dysan diagnostic diskette not included) 

DRIVE 0 SYSTEM $289 

Upgrade your Color Computer by adding our new 
JFD-CP disk controller, supercharged JDOS 
operating system, and a top quality drive with case 
and power supply: All for only $289! Comes 
complete with cable and manual. 

Drive 0 System with one single side drive $289 

Drive 0 System with one double side drive . . . . $359 
Drive 0,1 System with two single side drives . . . $429 
Drive 0,1 System with two double side drives . . $499 



MEMORY MINDER + 

Memory Minder is a disk drive test program now 
included in JDOS. Used with a Dysan digital 
diagnostic disk, Memory Minder allows you to 
check your drives for speed, alignment, sensitivity, 
hysteresis, and more! You can actually align the 
drives while viewing the graphics on the screen. 
No special equipment needed! 

DIAGNOSTIC DISKETTES 

508-200: Tests single side disk drives $26 

508-400: Tests double side disk drives $33 

Memory Minder is available on diskette for those 
who don't own a JFD-CP Controller with JDOS. 
Includes Dysan diagnostic diskette. 

Single Side Memory Minder Package $79 

Double Side Memory Minder Package $99 

*OS/9 is a registered trademark of Microwave, Inc. 

tMemory Minder is a registered trademark of J&M Systems, Inc. 

To order, call (505) 292-4182, or send payment with 
order to: 

t//A 

JAM SYSTEMS, LTD. 

151 00- A CENTRAL SE 
ALBUQUERQUE, NEW MEXICO 87123 
505/292-4182 

We accept MasterCard and Visa 
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Digressions 



Random Thoughts 

In my June 1984 Digressions, I called upon software authors to develop more serious 
software for the CoCo, such as a Lotus 1-2-3-like integrated package and a true 
relational database manager. It now appears that these two products will soon be 
available. (See this months Product News for more information.) 

The announcement of these products is an encouraging sign. It shows that the better 
software authors are still developing state-of-the-art programs for the CoCo. The CoCo 
needs products such as these to maintain its user base in the face of new competition 
(Commodore 128 and Amiga, Atari 520ST, and souped-up Apple lis). As long as there 
are companies willing to try to squeeze more function from the Color Computer with 
new products, the CoCo market will remain healthy. 



Speaking of Atari 

The new Atari 520ST is available now, as many of you are probably aware. It looks 
like a great deal: $799 for a 512K computer with monochrome monitor, 3.5-inch disk 
drive, mouse, and Atari Logo. Can it be too good to be true? Consider this: There is 
virtually no software base for the new Atari. At the present time, only a software 
developer would find a serious use for the 520ST. 

If it breaks, where do you go to get it fixed? I called Atari to find a dealer near me. 
They didn't have any in my area, but they did give me the phone number of a sales 
representative in a neighboring state. My nearest Radio Shack dealer is 6 miles away. 
Finally, Atari admits that it is having problems with the 520ST's operating system, 
TOS (Tramiel Operating System, named after Atari chief Jack Tramiel), which is why 
it comes on a separate disk instead of on ROM. Early buyers should therefore expect 
to play guinea pig. 

I'm not going to worry about the 520ST as serious competition for the CoCo yet. 
Tramiel and company must sort out the computer's problems, establish a decent 
dealer network, and get some serious software to market. The Color Computer has at 
least a five-year head start.— Michael E. Nadeau 



HOT CoCo is a member of the CW Communications/I nc. group, the world's largest publisher of computer-related information. 
The group publishes 57 computer publications in more than 20 major countries. Nine million people read one or more of 
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DataNews and MicroMundo; China's China Computerworld; Denmark's Computerworld/Danmark, PC World and RUN 
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Computerworld, Hot CoCo, inCider, Infoworld, MacWorld, Micro Marketworld, PC World, RUN, 73, 80 Micro, Focus 
Publications and On Communications. 
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Instant CoCo Directory 



Instant CoCo is a cassette tape containing the major programs from this issue of HOT 
CoCo. Its purpose is to save you the time and effort of typing long program listings into 
your Color Computer. You simply load the programs from the Instant CoCo tape using 
your cassette recorder. The instructions for operating each program are found in the 
corresponding HOT CoCo article. Both Basic and Assembly-language programs are 
included on the tape. 

The Instant CoCo symbol appears in HOT CoCo's table of contents and on the pro- 
gram listing for each article with a listing used on the Instant CoCo tape. As an added 
extra, each tape also contains a never-before-published Bonus Program, complete with 
instructions. 

The directory below lists all programs included on this month's Instant CoCo cas- 
sette. Shown first are the name of the article with a descriptive blurb and its author, 
followed by the page number in this issue where the article appears. Next comes the 
file name of the program on cassette. Finally, there is a brief description of the Color 
Computer system needed to run the program. 

This month's Instant CoCo cassette is available for just $11.47, including postage 
and handling, from Instant CoCo, 80 Pine St., Peterborough, NH 03458. See our 
ad on p. 64 for more details. 

Instant CoCo Directory 
November 1985 



Side A 

Article Name/ Author/Description Page # 

Copyright Statement 

Mindbusters/Ramella 14 

Leave the perimeter in just 

the right number of moves. 
Directory Assistance/Bonnell 30 

Put an end to cryptic 

disk-directory screens. 
Mail It with Telewriter-64/German 34 

Give Telewriter mail-list sorting capabilities. 
HaltThief/Jense 37 

Listen to the clues to find 

the crook before your opponents. 
Mathematics Helper/McArthur 45 

Solve difficult geometric equations. 
Finding Firewood Best Buys/Baker 48 

Calculate how to stay warm this 

winter at the least cost. 

SideB 

Mathlnvasion/Clift 53 

You must solve a math problem 

before you can save the world. 
Linked Lists/Bauder 63 

Learn another way to sort data. 
Tame Your Reset Button/Gault 68 

Reset Basic programs to the point 

you, not the CoCo, wants. 
Teacher Helpers/Wood 70 

Generate true/false tests. 



File Name 

TITLE 
WILDBLUE 

FSDIR 

TWSORT 
HALTHIEF 

MATHHELP 
FIREWOOD 



System 

16KCB 
16KCB 

32KDECB 

16KDECB 
32KECB 

16KECB 
16KECB 



INVASION 



LINKSORT 

LISTING2 
RESET(m) 

LISTING3 



16KECBor 
32KDECB 

16KCB 

16KECB 
16KCB 

16KECB 



* Bonus Program* * * 



Megashield/Washington 
You've got to be quick and a good 
shot in this Assembly-language arcade game. 



MEGASHLD(m) 16KECB 



CB = Color Basic, DECB = Disk Extended Color Basic, ECB = Extended Color Basic, 
(m)—achine-language program (use CLOADM) 
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Back Issues 



Yes, back issues of HOT CoCo are available for all 
months. This list shows the features in each issue: 

October 1983— Animation techniques; ROM dis- 
assembly, part I. 

November 1983— Nuclear submarine simulation; 
ROM-pack primer; banner printer. 

December 1983— World capitals quiz program; 
talking spelling tutor; vocabulary-building program. 

April 1984— Peripherals buyer's guide; how to 
shop for a disk drive; disk-fix utility; Lisp inter- 
preter. 

May 1984— OS-9 review; financial transactions 
tracker; homebrew spelling checker; CoCo Reversi 
game. 

June 1984— Horse-racing and stock-market simu- 
lators. 

July 1984— Do-it-yourself lowercase mod; variable 
cross-referencer; the game, Python. 

August 1984— Basic OS-9 review; database man- 
ager program; graphics tutorials; hurricane tracker. 

September 1984— Educational software buyer's 
guide; typing-teacher program; the CoCo as a mar- 
keting aid. 

November 1984— Personal money manager pro- 
gram; disk-file protection utility. 

December 1984— Disk-drive timer; disk drive 
maintenance tips; full-featured text-editing pro- 
gram. 

January 1985— Spreadsheet program; stock- 
charting program; make fancy graphics with your 
printer. 

February 1985— Drawing program; user's group 
list; Space Hawks game. 

March 1985— Universal screen-dump program; 
POKE list; utilities. 

April 1985— Telewriter-64 mods; modem compar- 
ison; satellite-tracking program. 

May 1985— Sound digitization; blackjack program; 
disk-based smart terminal programs compared. 

June 1985— How to install 64K in any CoCo; pie- " 
chart program; custom fonts for Gemini printers. 

August 1985— Graphics utilities; auto-line-number- 
ing program; how to connect the CoCo to a Model 100. 



You'll also find in each issue our regular features, 
reviews of popular software and hardware, and dozens 
of useful programs that are yours for the typing in. 

Each back issue costs $3.50 plus $1 shipping and 
handling. On orders of 10 or more back issues, there 
is a flat $10 shipping and handling fee. Quantities 
are limited, and we cannot guarantee that all back 
issues are available. Send your orders to HOT CoCo, 
Back Issue Orders, 80 Pine St., Peterborough, 
NH 03458. ■ 



Introducing 
COCO TIME 

A monthly magazine on tape and disk 

Now every month you can get 8-10 
ready-to-run utilities, programming tips 
& hints, business applications, home 
management, tutorials, and educational 
programs. Also a Buy 'N Sell section 
and much, much more. NO GAMES, 
ONLY REAL STUFF! 

Each issue shipped to you 
by first-class mail. 

Programs written by computer wizards 
like Kishore M. Santwani and 
Gary T. Jes. 

SUBSCRIBERS BENEFITS 

• Free advice/help on your Basic and 
ML programs, wherever possible. 

• Free Buy 'N Sell ads on computers 
and software. 

• 10% off on all Microcom soft- 
ware/books. 

• Subscribers encouraged to submit 
programs for inclusion, (contact us). 

EVERY YEAR YOU GET OVER 
$1500 WORTH OF SOFTWARE. 
So Act Now! 



PREMIERE ISSUE 
(October 1985) 

• Ram Disk (30K) 

• CoCoDiskZap 

• Memory Monitor 

• Educational Hangman 

• Basic Program Packer 

• Tape Encryption (Basic) 

• Disk Encryption (Basic) 

• Basic Speedup Tutorial 

• DMP (100/110/120) 
Graphics Dump 

The market value of these programs is 
OVER $150, DOUBLE the price of our 
annual subscription. 

Subscription Rates 
(USA & Canada) 

Tape Disk 

1 Year $65 $75 

6 Months $40 $50 

Single $10 $15 

(Other countries add 25%) 
Pay by VISA/MC/Check/MO 



Microcom Software 
Subscription Software Dpt. 
PO Box 214 
Fairport, NY 14450 
Phone (716) 223-1477 



THOUSANDS OF PROGRAMMERS USE THESE 
UTILITIES DAILY. SHOULDN'T YOU? 




DISK 
ANTI-PIRATE 

(A Breakthrough in Disk Protection) 
Your Only Weapon Against Software Piracy! 

Here is a chance for you to copy-protect your 
Basic and ML programs. DISK ANTI-PIRATE 
does more than any other program in the market. 
Compare the features: 

• Auto starts your Basic/ML programs. 

• Effectively encrypts your programs. 

• Disables BREAK/CLEAR KEY, RESET BUTTON. 

• Modifies your code so LIST, LLIST, POKE, PEEK, EXEC. 
USR, CSAVE (M), CLOAD (M), EDIT, DEL, TRON, 
TROFF, SAVE (M), LOAD (M), MERGE will ONLY work 
with your own PASSWORDS. 

• BACKUP PROTECTION prevents illegal disk copying. 

• Your Basic program loads with LOADM. 

• Includes a Title Screen Editor to create title screens, 
which can be displayed while your program loads. 

• ONERR GOTO' feature to trap errors (even for ML 
programs). 

• Can be used to turn on 64K ALL-RAM MODE in 32K/64K 
memory systems. 

• EASY-TO-USE and FULL DOCUMENTATION. 

• NO ROYALTIES/AGREEMENTS/CONTRACTS. 

MIN. 16K ECB Disk System. 

(Works with CoCol and CoColl) 

Only $59.95 

HIDE-A-BASIC 1.1 

(A Breakthrough in Cassette Protection) 

AT LAST! A program that combines 
autostart with complete protection of 
your valuable Basic programs. 
IMPORTANT FEATURES: 

• Autostarts your programs. 

• A ML program that modifies your program and NOT just 
Stands Apart'. 

• Option to disable Break-key, Clear key & Reset button. 

• Disables LIST LLIST, EDIT, DEL TRON, TROFF, CSAVE 
(M), CLOAD (M) 

• Disables POKE, PEEK, EXEC & USR to prevent Back- 
door entry' to your program. 

• Disables disk functions to avoid access thru Disk 
System. 

• Creates an ONER GOTO' routine to trap errors. 

• Your Basic program is loaded as a ML program - with 
C LOADM. 

• Full documentation. 

WITH HIDE-A-BASIC 1.1 THERE IS 
PRACTICALLY NO WAY ANYONE CAN 
GET INTO' YOUR PROGRAM. 

Buy Now & Protect your Profits. For 16K ECB Cassette 
System. 

Tape Only $24.95 
Buy BOTH for ONLY $79.95 
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DISKETTES 

5V4 M SS/DD Diskettes with tearless sleeves, hub 
rings, write-protect tabs, and Jackets. 
Quantity Price Shipping 

10 $18.00 $2.00 

100 $162.95 $7.00 

NO SHIPPING charges on disks if ordered with any 
other software. 

FREEH CoCoDiskZap program (a $24.95 value) on 
additional disk with purchase of 10 or more disks. 

Circle Reader Service card #106 

MICROCOM SOFTWARE 
rnmmm P.O. Box 214, FAIRPORT, N.Y. 14450 

I "** ] 716-223-1477 

To Order: VISA, MC, CHECK, M0, COD ($2.50 extra) Please add 
$2.00 shipping and handling (Foreign $5.00). NYS Residents, 
please add Sales Tax • Immediate shipment • Order by 
phone and get a $2.00 refund for your phone call 

• Call for discounts on bulk quantities • Dealer inquiries invited. 




500 POKES, PEEKS 
'N EXECS for 
the TRS-80 

COLOR COMPUTER" 

NEVER BEFORE has this information of vital sig- 
nificance to a programmer been so readily avail- 
able to everyone. This book will help you 'GET 
UNDERNEATH THE COVER' of the Color Com- 
puter and develop your own HI-QUALITY pro- 
grams, SO WHY WAIT? 

This 80-page book includes POKEs, PEEKs 
and EXECs to: 

Auto start your Basic programs. 
Effectively encrypts your programs. 
Disables most Color Basic/ECB/Disk Basic commands. 
Disable BREAK KEY, CLEAR KEY and RESET BUTTON 
Generate a Repeat-Key. 
Merge two Basic programs. 
Transfer Rompaks to tape (for 64K only). 
Speed up your programs 
RESET, MOTOR ON/OFF from keyboard. 
Restart your Basic program thru the RESET BUTTON. 
Produce Key-Clicks and Error-Beeps 
Recover Basic programs lost by NEW, ?10 ERRORS and 
faulty RESET. 

Set 23 different GRAPHIC/SEMIGRAPHIC modes 
Set 15 of the most commonly used Baud Rates. 
Allow you more plays in 23 of your favorite arcade 
games. 

• AND MUCH MUCH MORE! 

COMMANDS COMPATIBLE WITH 16K/32K/64K COLOR 
BASIC/ECB/DISK BASIC CASSETTE and DISK SYSTEMS and 
CoCol and CoColl. 



ONLY 



$16.95 



UTILITY ROUTINES 
for the TANDY & TRS-80 
COLOR COMPUTER (Vol. 1) 




This powerful book for Basic and ML Programmers 
includes program explanation, memory requirements, 
and an annotated source listing for the utility routines 
given below These routines if bought individually will 
cost you HUNDREDS OF DOLLARS. 
These are 100% Position Independent ML Utilities and 
require no ML programming knowledge. 
COMMAND KEYS: Access most Basic commands with 2 
keystrokes. 

CURSOR STYLES: Create OVER 65000 Cursor Styles 
FULL LENGTH ERRORS: Get full length error messages. 
KEY CLICKER: Ensure key input accuracy. 
PAUSE CONTROL: Put Basic/most ML programs "on hold" 
REPEAT KEY: Repeat ANY key. 5 different key speeds. 
REVERSE VIDEO (Green and Red): Eliminate eye strain. 
SPOOLER (16K, 32K, 64K): Don't wait for those printouts, 
32K Spoiling Butter in 64K 

SUPER SCROLLER (64K Only): Save and examine everything 
that scrolls off the text screen. 
AND MUCH MUCH MORE! 

Compatible with 16K/32K/64K ECB / Cassette 
and Disk Systems and CoCo I and CoCo II. 

BOOK $19.95 
THESE ROUTINES (READY-TO-RUN) 
ON CASSETTE/DISK: $24.95 
BOTH BOOK & CASSETTE/DISK: 
$36.95 

Basic Programming Tricks Revealed— $14.95 
Color Basic Unravelled— $19.95 
Extended Basic Unravelled— $19.95 
Disk Basic Unravelled— $19.95 
All 3 Unravelled Books— $49.95 
FACTS-$14.95 



24-HOUR ORDER HOT LINE (7 DAYS A WEEK): (716) 223-1477 



Tell them "I saw it in HOT CoCo." 
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How to Use HOT CoCo 



Each month HOT CoCo provides a number of program listings for 
you to type into your Color Computer and use. If you are new to 
computing, read this page for advice that will help you avoid problems 
often encountered when entering programs manually. 

Know the Basics 

Before you begin, you should be familiar with the basic operation of 
your Color Computer. Read the manual, and make sure you under- 
stand how to enter a program line, save a program to cassette or disk, 
and make corrections to a program line. Verify that the program you 
want to enter will run on your version of the Color Computer. You 
need to know the memory requirements, the type of Basic used (Color, 
Micro Color, Extended Color, or Disk Extended Color Basic), what pe- 
ripherals might be needed, and in some cases whether a particular . 
ROM version is needed. 

All this information is provided in the System Requirements box 
included with each article that has a program listing. This box gives 
the minimum requirements to use the program. If, for instance, the 
box reads "16K RAM, Color Basic," the program should also work on 
32K or higher, Extended or Disk Extended Color Basic CoCos. Op- 
tional equipment is listed as such. Once you've established that the 
program will work on your CoCo, read the article thoroughly. Some- 
times it will include information vital to typing in the listing. 

What You See Is What You Get 

We print all Basic program listings 32 characters across— just as 
they appear on your video screen. Type in the listing exactly as it 



Circle Reader Service card #12 



SUNRISE 



SOFjTiIURR'E 



BRDI NUI 5B STREET DEFT H 
5UMRISE, FL 



COLOR BANKBOOK 

REFLRCE YDUR CHECKBOOK WITH YOUR 
COLOR COMPUTER. LI5T5 TRRM5RCTIDNE 
DN SCREEN OR PRINTER. KEEPS R FILE 
ffixCi UF YOUR RE&ULFiR PRYMENT5. LISTS 
wII£5S? CHECKS OUTSTANDING RND PRINTS YOUR 
CHECKS IF YOU HRVE THE PROPER 
TRRCTDR FEED CHECK FORMS. 
RED UIRE5 3EK COCO UIITH DRIVE tf. 
PRINTER OPTIONAL. 

ORDER BRNK. 5 $5^.15 FLUE fcE.QQ 5 A H 

BUSINESS BANKBOOK 

RLL OF THE OPTIONS OF THE RBOVE 
PROERRM PLUS YOU CRN CHRRGE UP TO 
FOUR RECOUNTS PER TRRN5RCTI0N - 

muwon CHECKS RND DEPOSITS. 

^5252? SYSTEM ONE - FOR ONE DISK DRIVE - 

ORDER BRNK 7.1 fSH.HS PLUS $2.00 5 4- H 
SYSTEM TWO - FOR TUIO DISK DRIVES - 
ORDER BRNK R.i $5q.q5 PLUS fE.DD 5 i H 

SUPER OISK UTILITY 

DI5PLRY5 DIRECTORY IN PRGE5. MRKE5 
BRCKUF DIRECTORY. RUNS PR0GRRM5 
UIITH TUIO KEYSTROKES. COPY, KILL 
BRCKUP, RND RERD/MODIFY PR0GRRM5 
OR DRTR. 

ORDER SUPER DISK $1^.95 PLUS $2. DO 5&H 
RLL PROGRAMS INCLUDE MRNURL5. 
FLR. RE5. RDD 5X TRX 



appears in the magazine, being particularly careful with spaces and 
punctuation. If you do this, the 32-character format will aid in proof- 
reading what you have typed by letting you match beginning and 
ending characters on corresponding lines. If you have a line that ends 
on a character other than what appears in the magazine, go back and 
check for a typo. Also, don't mistake certain characters for others that 
look similar, such as a zero instead of the letter 0, a comma for a 
semicolon, and so on. 

Weird Characters 

The up arrow indicates exponentiation on the Color Computer. Un- 
fortunately, our printer prints a caret ( A ) instead. Be sure to type an 
up arrow in place of all carets in Basic program listings. 

Assembly-Language Listings 

HOT CoCo often publishes programs written in Assembly language 
rather than Basic. Assembly programs "talk" to your CoCo on a more 
direct level and, therefore, run faster. Unfortunately, it is much more 
difficult to learn Assembly-language programming than Basic 
programming. 

But you do not need to know how to program in Assembly to use 
these programs. You do need, however, something called an editor/ 
assembler. An editor/assembler allows you to manually enter an As- 
sembly listing, and then it "assembles" it into a form that your CoCo 
can execute. 

If you do not own an editor/assembler, it is possible to hand-assem- 
ble an Assembly listing, but this is a tedious process that is best left 
to someone with a little experience with Assembly programming. It 
also requires a short Basic routine that prepares your CoCo for hand- 
assembly. 

We try to convert Assembly programs to Basic DATA statements. 
With a short Basic routine to execute the DATA statements, you have 
a program that you can type in just like a Basic listing, yet operates 
much like the one written in Assembly. 

If you want one of HOT CoCo's Assembly listings, but it hasn't been 
converted to DATA statements and you do not own an editor/assem- 
bler, check to see if it appears on our Instant CoCo cassette. All assem- 
bly programs on Instant CoCo are in assembled form, meaning you 
can load and execute them immediately. 

Speaking of DATA Statements 

Since DATA statements often consist of numbers only, it is easy to 
make a mistake typing them in. One wrong number can crash the 
program. When this happens, the only way to recover is often to turn 
off the computer for a few seconds before turning it back on. Of course, 
this wipes out your program in memory. 

To avoid this, always save what you have typed in before running 
it. That way, if you did make a mistake, you can load the programfrom 
tape or disk to look for the error, rather than retyping the entire listing. 

One last thing about DATA statements: Error messages that occur 
due to a mistyped DATA statement line will refer to the corresponding 
READ statement line earlier in the program. Yet it is the DATA state- 
ment that is incorrect. 

If All Else Fails 

If you cannot get your typed-in listing to run after checking and 
double-checking for typos, you can ask us for help. Send a detailed 
description of your problem along with any error messages given. 
Ideally we'd like a printout of what you typed. Send a self-addressed, 
stamped envelope for the fastest reply. Sorry, but we cannot help you 
if you have modified the original program in any way. Write to HOT 
CoCo, attn. Technical Editor, 80 Pine St., Peterborough, NH 
03458. ■ 
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Letters to the Editor 



Out of Tune 

In your review of CoCo Tuner (HOT CoCo, 
August 1985, p. 74) you state that the instru- 
ment "emits an audio signal in which A 
equals 220Hz— octave 4 on the piano, or the 
A above middle C." The frequency for the A 
below middle C is 220 Hz; 440 is the fre- 
quency for the A above middle C. 

Furthermore, the Hale Sight-O-Tuner was 
not mentioned as one of the "electronic tun- 
ing forks." The product is sold by Tuners 
Supply Co., P.O. Box 950, Somerville, MA 
02145. 

Of course, it takes more than knowing the 
correct frequency in order to finely tune a 
piano. The tuner "hears" only the vibrations 
produced between bridges, making no allow- 
ance for equalizing the tension of the strings 
across the bearing points or taking the twist out 
of the tuning pins after they have been moved. 

Bob Buzzell 
Newtown, PA 

Our apologies for the error and the over- 
sight— eds. 



Program for Diabetics 

I am interested in developing a program for 
educating young diabetics and have heard 
that programs of this type are already avail- 
able. Could anyone provide information on 
obtaining such a program for the CoCo? I am 
eager to hear from other CoCo users with a 
similar interest. 

Miss Wendy Ross 
50 Sandwich Road 
Beckenham, Christchurch 2 
New Zealand 



CoCo Connection 

I'm looking for an interface (with cable) to 
connect my 32K CoCo to a Brother Compac- 
tronic 60 typewriter that is said to be com- 
puter compatible. I would appreciate advice 
on making the connection and the address of 
an interface manufacturer. 

Norman A. Bleshman 
165 Ames Ave. 
Bergenfield, NJ 07621 



Hi-Res World Map 

Readers who want to use World Map (HOT 
CoCo, April 1985, p. 30) in PMODE 4, the 
highest resolution mode, are hampered be- 
cause the identification circle does not ap- 



pear on land masses. The modification below 
draws the portion of the circle over water in 
black and the portion over land in white. Edit 
line 30 as shown and add the other four lines. 

30 PMODE4,l:PCLEAR4:PCLS:CLS 
265 FOR TH = 0 TO 6.3 STEP .3 
270 XC = XP + 5*COS(TH):YC = YP + 
5*SIN(TH) 

275 IF PPOINT(XCYC) = 5 THEN PSET 
(XC,YC,0) ELSE PSET(XC,YC,5) 

276 NEXT TH 

The changes replace the CIRCLE command 
by PSETing each pixel around the perimeter 
of the circle after determining whether it 
should be white or black. 
World Map is a great educational program. 

R. Spencer Soanes 
Brechin, Ontario 

Program Correction 

The Listings accompanying David Mere- 
dith's article, "All Sorts of Sorts" (HOT CoCo, 
July 1985, pp. 46 and 47) contained minor er- 
rors. Replace the first greater than symbol (>) 
in line 220 of Listing 5 with a colon (:). In line 
1 80 of Listing 7, change the beginning of the 
line to read: IF V = A(l + Jj.— eds. 



Redesign 

It is impossible to use a slow screen dump 
from screen 0 in Designmaker (HOT CoCo, 
August 1985, p. 26). To accomplish this, edit 
line 1260: 

1260 IF PPOINT(ZX,ZY) = F*4 + 1 THEN 
1320 

There is one small error in the article. The 
System Requirements for Designmaker 
should state that it requires 16K RAM. 

Thad Starner 



Modem II Revisited 

Despite my response to Jason Johnson's let- 
ter published here in July, HOT CoCo has re- 
ceived additional mail criticizing the review of 
Tandy's Modem II (HOT CoCo, April 1985, p. 
24). The review, which was designed to be an 
examination of low-cost modems, included a 
cursory inspection of the higher priced Modem 
II because many readers might consider the 
Tandy product, as well 

Most of the Modem lis features work fine on 
the Color Computer. However, the device does 
not perform autodial operations with all Color 
Computer software. In addition, the CoCo can- 



not monitor the carrier-detect line in the au- 
toanswer mode unless you run a special line 
into the joystick port or use Tandy's Deluxe RS- 
232 Program Pak (catalog no. 26-2226). The 
Program Pak, which sells for $59.95, was not 
available for the review. It will provide access 
to more control lines for maintaining control of 
the modem. 

Another problem with the Modem II con- 
cerns its force DTR (data- terminal ready) 
switch. Turning this switch on when you are 
running a BBS always forces a carrier detect; 
consequently you can't determine if a caller 
has hung up. Instead, you must rely on a soft- 
ware time-out to make the disconnection. If 
you add Tandy's RS-232 ROM pack and leave 
the force DTR line off, carrier-detect is not 
forced and can be monitored. However, the 
force DTR switch is a flaw and a major prob- 
lem for BBS owners. For autoanswer, I find 
many better modems on the market. 

Use of the Modem II as an autodial modem 
is dependent on your software. The review 
should have stated more clearly that the au- 
todial feature works with some, but not all, ter- 
minal packages. But the fact that some 
readers have found programs that perform 
this function on the Modem II (including Au- 
totermfrom PXE Computing and Vidtex from 
CompuServe) does not mean that the product 
will work universally. Several packages will 
not autodial with the Modem II. 

Bobby Ballard 



MC-10 User 

I own an MC-10 with 20K RAM and CCR- 
8 1 and CGP-220 printers. I would appreciate 
hearing from anyone who can offer advice on 
a few specific programming, hardware, and 
software problems. 

First of all, can anyone tell me whether you 
can change the rectangular cursor, using one 
or more of the ASCII characters in the VDG 
instead? Or can you provide assistance with 
my robot and speech synthesis projects? I 
am looking for 25 inexpensive stepper mo- 
tors and information on interfaces and pro- 
gramming for the robot. I would welcome 
tips for using Tandy's SP0256A-AL2 speech- 
synthesis IC with the MC-10. 

I'd like to obtain a circuit-design program 
that prints text and graphics to the screen 
and printer and that also allows you to save 
and load designs to and from cassette. My 
final request is for a music program compa- 
rable to Tandy's Audio Spectrum Analyzer 
(catalog no. 26-3156). 

Arne J. Gregor 
1606 Lincoln Court 
Reading, PA 19605 
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DISK 

$ 44.95 



Introducing The "Super Smart" 

DATA PACK II 
TERMINAL COMMUNICATIONS SOFTWARE 

^m******^ Also Supports The PBJ 80 Column "Word Pak", Deluxe RS-232 Pak, 



Parallel Printer Card and PBJ 2SP Pak 

"FEATURES" 



No Lost Information When Using Hi-Resolution Display On Line 

ASCII Compatible File Format 

Full Text Buffering 

Terminal Baud Rates 300 to 9600 

Automatic Word Wrap Eliminates Split Words 

Full Half Duplex 

Automatic File Capture 

Programmable Word Length, Parity and Stop Bits 

Save and Load Text Buffer and Program Key Buffers to Tape 

or Disk 

9 Hi-Resolution Display Formats. 28 to 255 x 24 
True Upper lower Case Display 
Kill Graphics Option for an Extra 6K 
Supports Line Break 



Freeze Display and Review Information On Line 

Send Files Directly from Buffer or Disk 

Full Disk Support for Disk Version 

Send Control Codes from Keyboard 

Separate Printer Baud Rates 110-9600 

Display on Screen or Output Contents of Buffer to Printer 

Automatic Memory Sense 16-64K 

9 Programmable Function Key Variable Length Macro Buffer 
Programmable Prompt Character or Delay to Send Next Line 
Programmable Control Character Trapping 
Programmable Open Close Buffer Characters 
Automatic Key Repeat For Editing 
Program and Memory Status Displays 



TAPE 

s 34.95 




"The Source" 

has arrived! 



The Source brings the cost of Disassembler and Assembler Source code 
generation down to Earth. 

Now you can Disassemble Color Computer machine language programs and generate 
beautiful, Assembler Source Code for a traction of the cost of other Disassembler/Source 
Generator programs. 

The Source has all the features and functions you are looking for in a Disassembler. 

• Automatic label generation. 

• Allows specifying FCB. FCC and FDB areas. 

• Disassembles programs directly from Disk. 

• Supports multiple origin disk files. 

• Output complete Disassembled listing with labels to the Printer, Screen or both. 

• Generates Assembler compatible source files directly to disk. 

• Generated source files are in standard ASCII format that can be edited by most word processors. 

• Built in Hex/Ascii dump/display to help locate FCB, FCC and FDB areas in a program. 

• Fast Disassembly mode for testing & checking FCB, FCC and FDB mapped areas. 

• Built in Disk Directory and Kill file commands. 

• Menu display with single key commands for smooth. Easy, almost foolproof operation. 



32K Disk $34*95 




Starship Falcon 

Graphics Adventure Game 



Six months ago a terrorist group demanded to be designated the rulers of 
Alpha Sigma III, under the threat of world starvation on the planet Earth. The 
Federation denied their demands, so they released a biological weapon which 
has destroyed all known edible plant species from throughout the known gal- 
axy. To date no plant life has been able to survive on Earth. Recently, Federation 
undercover agents have reported a story told by a roving space trader, of a 
planet with abundant edible plant life. These plants have a reputation of being 
able to survive in all climates and in fact, are supposed to grow at an incredible 
rate. The Federation is desperate! If Earth's food source is not replaced soon, 
the Federation will have to evacuate all animal and Human life. Your mission 
is to go to the planet Zephyr and obtain the seed of these plants and return to 
Earth. Several Federation agents have been sent to obtain the seeds and none 
has returned! Can you get the seed and survive??? GOOD LUCK! 



32K Disk $21.95 
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Screen Enhancement Program Comparison Chart 



NEW IMPROVED VERSION 

- UP TO 85 CHARACTERS PER LINE 
READABILITY 

- ADJUSTABLE AUTOMATIC KEY REPEAT 

- PROPTECT 1-23 SCREEN LINES 

- CONTROL CODE KEYBOARD 

FULLY BASIC COMPATIBLE 

DISPUW F ORMATS Of 28 to 255 CHARACTERS PER I.INF. 

FULl.% UPPER/LOWER CASE CHARACTERS 

MIXED GRAPHICS & TEXT OR SEPARATE 

GRAPHIC & TEXT SCREENS 

INDIVIDUAL CHARACTER HIGHLIGHTING 

REVERSE CHARACTER HIGHLIGHT MODE 

WRITTEN IN EAST MACHINE I.ANGUAGE 

automatic: relocates to top of 16/.32K 

AUTOMATICALLY SUPPORTS fA K of RAM WITT I RESET CONTROI . 
REVERSE SCREEN 
ON SCREEN UNDERLINE 
DOUBLE SIZE CHARACTERS 
ERASE TO END Of LINE 
ERASE TO END OF SCREEN 
HOME CURSOR 
BELL TONE CHARACTER 
HOME CURSOR & CLEAR SCREEN 
REQUIRES ONLY 2K OF RAM 
COMPATIBLE WITH ALL TAPE & DISK SYSTEMS 




24 9 i> $29 



95 

DISK 



ALL ORDERS SHIPPED FROM STOCK 
ADD $2.50 POSTAGE 
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CER 
COfflP 

5566 Ricochet Avenue Las Vegas, Nevada 89110 

(702) 152-0632 



PROGRAM FEATURES 


HI-RES II 

NEW 


HI-RES I 

OLD 


BRAND X 


Upper/Lower case characters Yes 


Yes 


Yes 


Mixed Text and Graphics 


Yes 


Yes 


Yes 


Separate Text & ( iraphics 


Yes 


Yes 


No 


Print @ fully implemented 


Yes 


Yes 


Yes 


Print @ on all line lenqths 


Yes 


Yes 


51 only 


Different line lengths 


2H to25 r > ( ( >)2K to 255 (<>) 


51 only (1) 


Automatic Kev Repeat 


Yes 


Yes 


Yes 


Adjustable Kev Repeafc 


Yes 


No 


No 


Auto Repeat Disable 


Yes 


No 


No 


Erase to end of line/screen 


Yes 


Yes 


Yes 


Home Cursor 


Yes 


Yes 


Yes 


Solid or Blinking Cur .or 


Yes 


No 


Yes 


CLS command supported 


Buff/Biack 


Buff/Black 


Buff/Black 


X.Y Coordinate Cursor 








Positioning 


Yes 


Yes 


No 


Double Si/e Characters 


Yes 


Yes 


No 


Individual/Continuous 








Highlighting 


Yes 


Yes 


No 


On Screen Underlining 


Yes 


Yes 


No 


Clear Key functional 


Clear/L keysClear key 


No 


16 32 & 64 K Supported 


Yes 


Yes 


Yes 


Green or Black Background 








Color 


Yes 


No 


No 


Dual Character sets for 








Enhanced 64 and K5 








Characters per line display Yes 


No 


No 


Protected Screen Lines 








(programmable) 
Full Control Code Keyboard 
for Screen control directly 


1 to 2.3 


No 


No 














from the keyboard 


Yes 


No 


No 


Programmable Tab Characte 








Spacing 


'Yes 


No 


No 


Full Screen Reverse Function Yes 


Yes 


No 


Switch to & from the Standard 






16 by 32 Screen for full 








compatabihty 


Yes 


No 


No 


On Error Goto Function 


No 


No 


Yes 


Extended Basic Required 


No 


Yes 


Yes 


All Machine Language Program Yes 


Yes 


Yes 


RAM Required in addition U 








Screen RAM 


2K 


2K 


2K 


Program Price (Tape) 


$24 % 


$1<) <)5 


$2 ( ) 95 



VISA 

VISA. MASTERCARD AND CO D. ACCEPTED 
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"The CBASIC Compiler" 

Now anyone can create fast efficient Machine Language Programs 
Easily and Quickly without having to use an Editor/ Assembler 



Circle Reader Service card #335 



CBASIC is a fully integrated, easy to use Basic program Editor and Compiler package CBASIC is 99% syntax compatible 
with Disk Extended Color Basic programs, so most Basic programs can be loaded and compiled by CBASIC with little 
or no changes required The compiler is an optomizing two-pass integer Basic compiler that can convert programs written 
in Disk Extended Color Basic into 100% pure 6809 Machine Language programs which are written directly to disk in a 
LOADM compatible format 

The programs generated by the compiler can be run as complete stand alone programs A built-in linker/editor will 
automatically select one and only one copy of each subroutine that is required from the internal run-rime library and insert 
them directly in the program This eliminates the need for cumbersome, often wasteful separate "run-time" packages 

CBASIC WAS DESIGNED FOR BOTH 
BEGINNING & ADVANCED USERS 

CBASIC is a Powerful tool for the Beginner or Novice programmer as well as the Advanced Basic or Machine Language 
programmer The Beginner or Novice programmer can wnte and compile programs without having to worry about Stack 
Pointers, DP registers, memory allocation, and so on, because CBASIC will handle it for you automatically All they have 
to do is write their programs using the standard Basic statements and syntax For the advanced Basic and Machine 
Language programmers, CBASIC will let you take command and control every aspect of your program, even generating 
machine code directly in a program for specialized routines or functions 

CBASIC adds many features not found in Color Basic, like Interrupt, Reset, and On Error handling It also has advanced 
programming features that allow machine level control of the Stack and Direct Page registers, variable allocation, automatic 
64K RAM control, program ongin and even multiple ongins It can even have machine language code generated within 
a program that executes just like any other Basic program line 

FULL COMMAND SUPPORT & SPEED 

CBASIC features well over 100 Basic Commands and Functions that fully support Disk, Tape, Printer and Screen 1/ 
O It also supports ALL the High and Low Resolution Graphics, Sound, Play and String Operations available in Extended 
Color Basic, and all with 99 9% syntax compatibility 

CBASIC is FAST Not only will CBASIC compiled programs execute 10 to 1000 times faster than Basic, but the time 
it takes to develop a CBASIC program versus writing a machine language program is much, much shorter A machine 
language program that might take several months to write and debug could be created using CBASIC in a matter of days 
or hours, even for a well experienced machine language programmer We had a report from a CBASIC user that claimed 
"a Basic program that used to take 3 hours to run, now runs in 7 to 8 minutes" Another user reported a program that 
took 1 to 1 % hours to run in Basic, now runs in 5 to 6 minutes!!! 

MORE THAN JUST A COMPILER 

CBASIC has its own completely integrated Basic Program Editor The Editor contained in CBASIC is used to Create 
and/or Edit programs for the compiler It is a full featured editor with functions designed specifically for writing and editing 
Basic programs It has built in block Move and Copy functions with automatic program renumbering Complete, easy to 
use inserting, deleting, extending and overtyping of existing program lines It is also used for Loading, Saving, Appending 
(merging). Killing disk files and displaying a Disk Directory It also has automatic line number generation for use when 
creating programs or inserting sequencial lines between existing lines You can set the printer baud rate and direct normal 
or compiled listings to the printer for hard copy The built in editor makes program corrections and changes as easy as 
"falling off a log" If CBASIC finds an error when compiling, it points to the place in the program line where the error 
occurred All you have to do is tell the editor what line you want to start editing and when it is displayed, move the 
cursor with the arrow keys to the place where the error is and coirect it Just like that, it's simple 

HI-RES & 80 COLUMN DISPLAYS 

CBASIC is the only Color Basic Compiler that includes its own Hi Resolution 51, 64 or 85 by 24 line display It is also 
the only compiler that supports both the PBJ "Word Pak" and the Double Density 80 column cards All of these display 
formats are part of the standard CBASIC compiler package Not only can these display formats be used for normal 
program editing and compiling, but CBASIC will also include them in your compiled programs' If you want CBASIC to 
include the display driver in your program, all you have to do is use a single CBASIC command "HIRES" The run time 
display driver that CBASIC includes in your program is not just a simple display, but a full featured display package With 
the Hi Resolution display package you can mix text & graphics, change characters per line, underline, character highlight, 
erase to end of line or screen, home cursor, home & clear screen, protect screen lines, and much more All commands 
are compatible with our HI RES II Screen Commander so you can easily develop screen layouts using HI RES and Color 
Basic before you compile your program The same applies to using the 80 column card drivers What other Basic compiler 
offers you this kind of flexibility 7 



64K RAM SUPPORT 



CBASIC makes full use of the power and flexibility of the 6883 SAM (Synchronous Address Multiplexer) in the Color 
Computer It will fully utilize the 96K of address space available in the Color Computer (64K installed) during program 
Creation, Editing and Compilation CBASIC has a special command for automatic 64K RAM control When used in a 
program, it allows the user to use the upper 32K of RAM space automatically for variables or even program storage at 
run time It will automatically switch the ROMs in and out when needed There are also two other commands that allow 
you to control the upper 32K of RAM manually, under program control No other Color Basic compiler directly supports 
the use of 64K RAM like CBASIC 

ALL MACHINE LANGUAGE 

CBASIC is completely wntten in fast efficient Machine Language, not Basic, like some other Color Basic compilers 
Because of this. CBASIC can edit and compile very large programs Even using the Hi Resolution 51 by 24 line display, 
it can work with about a 34K program, and the 80 column card versions can handle almost 40K of program Some of 
the other Basic compilers can only work with 16K or about 200 lines Even working with large programs, CBASIC 
compiles programs with lightning fast speed It will compile a 24K program to disk in less than 2 minutes' That's without 
a listing being generated We've heard stones about some other compilers that take almost 10 minutes to compile a simple 
2 3K program You might inquire about this when you look at some of the other compilers available 



THE FINISHED PRODUCT 

Since CBASIC contains statements to support ALL of the I/ O devices (Disk. Tape. Screen & Printer), Hi-Res Graphics, 
Sound, and Enhanced Screen displays, it is well suited for a wide range of programming applications It generates a 
complete. Ready to Run machine language program The finished product or program does not have to be interfaced to 
a Basic program to perform some of its functions or commands This may seem obvious to you, but some of the other 
Color Basic compilers don't necessarily work this way Some of their compiler commands need a separate Basic program 
in order for them to work In some cases, require that a separate Basic program be interfaced to the compiled program 
to perform I/O functions, like INPUT. PRINT and so on CBASIC doesn't do this ALL of its commands are compiled 
into a single machine language program that does not require any kind of Basic program to make it work 



COMPATIBILITY 



You may be wondering about those statements we made earlier concerning 99% or 99 9% syntax compatibility What 
does that other 1% consist of 7 The biggest part of that 1% has to do with string arrays and variables CBASIC does not 
use a "String Pool" like Color Basic It uses absolute memory addresses to locate string vanables and arrays This is why 
CBASIC's string processing is so fast, it also eliminates the time consuming "Garbage Collection" problem When CBASIC 
allocates space for strings, it must know how much space to use for each string When you Dimension a string variable 
in CBASIC, you must tell it how much space you want to save for each element To Dimension an an-ay of 40 strings, 
64 characters each, you would DIM DA$(40.64) If a string is not dimensioned, CBASIC will automatically allocate 32 
bytes for it. If you want a single string to have enough room for 200 characters you would DIM AX$(200) For string 
arrays, you would still access the element you want, the same as Color Basic, to get string #30 from the array DAS, you 
would still use DA$(30), the only real change is in the DIM statement For undeclared string an-ays of 10 elements or 
less. CBASIC will automatically reserve space for 10 (0-9) strings of 32 characters In some other Color Basic compilers, 
you have to declare EVERY string variable used in the progrm in a DIM statement And. to create an array of 40 strings 
with 64 characters each, you would have to DIM AD$(2560), and then to access string #30, you would have to multiply 
30 x 64 and use a special variable name format or access it one character at a time Not very compatible or convenient 
to use, and difficult at best. 

CBASIC REQUIREMENTS 

CBASIC requires a minimum of 32K RAM and at least one Disk drive We strongly recommend that you have 64K 
CBASIC is compatible with all versions of Color & Extended Basic and both Disk Basic VI 0 and VI 1 Programs 
compiled on either system will run on systems with different ROMs CBASIC is NOT compatible with JDOS 



DOCUMENTATION 



The Documentation provided with any program is very important to the user This is especially true when you talk 
about a program as complete and complex as CBASIC Even though CBASIC was designed to be the most User Friendly 
compiler on the market, we went to great lengths to provide a manual that is not only easy to use and understand, but 
comprehensive and complete enough for even the most sophisticated user The manual included with CBASIC consists 
of approximately 120 pages of real information, not like some manuals that put just one or two short paragraphs on a 
page If we did it that way, we could have easily created a three or four hundred page manual The manual index breaks 
down each section of the manual and gives a 3 or 4 word description of each section and its items along with page 
numbers The manual has three sections, the Editor. Compiler and Appendix Each of these is divided into subsections, 
with Section and Subsection titles printed at the top of each page If you want to, you could find the information you are 
looking for by simply flipping through the pages and scanning the Section titles on the top of the pages The Manual itself 
is an 8'/, by 1 1 Spiral Bound book with durable leather textured covers Some of the reports we have had from CBASIC 
users describe the manual as being the Best program manual they have ever used 

COMPARE THE DIFFERENCE 

CBASIC is not just another Color Basic Compiler It is the only complete Basic Compiler System for the Color Computer 
Compare CBASIC's features to what other compilers offer and you'll see the difference When companng CBASIC to 
other compilers, you might want to keep some of these questions in mind Does it support I/O functions 7 You can't write 
much of a program without PRINT. INPUT and so on What about complex string statements, or string statements at all 7 
How large of a program can you wnte'' Can you compile a complex string like MID$(RIGHT$(DA$(VAL(IN$),l£N(LE$)).3.3) 7 
Can you use two character variable names for string & numeric variables, like Basic Does it support all the Hi Res graphics 
statements including PLAY, DRAW, GET and PUT, using the same syntax as Basic'-* Do you ever have to use a separate 
Basic program 7 Can you take complete Basic programs and compile them without extensive changes 7 Will they work 7 
How do you edit a program when it has errors compiling 7 

PRICE VERSUS PERFORMANCE 

The price of CBASIC is $149 00 It is the most expensive Color Basic Compiler on the market, and well worth the 
investment We spent over 2 years writing and refining CBASIC, to make it the Best, most Compatible Color Basic 
compiler available Most of our CBASIC users already bought one or more of the other compilers on the market and 
have since discarded them We even traded in a few of them If you want a cheap compiler, we'll sell you one of those 
traded in, at a good price Before you buy a compiler, compare the performance of CBASIC against any Color Basic 
compiler Dollar for Dollar. CBASIC gives you more than any other Color Basic compiler available 

ORDERING INFORMATION 

To order CBASIC by mail, send check or money order in the amount of $149 00 plus $3 00 for shipping and handling 
to the address to the address listed below 
To order by VISA. MASTERCARD or COD, call us at (702) 452-0632 (Monday thru Saturday, Sam to 5pm PST) 



CER-COMP 
5566 Ricochet Ave. 
Las Vegas, NV 89110 
(702) 452-0632 



Tell them "I saw it in HOT CoCo. 



November 1985 HOT CoCo 11 



DoctorASCll 



by Richard E. Esposito 



Having technical difficulties? Let the Doctor solve them. Due to the vol- 
ume of mail Doctor ASCII receives each month, we cannot guarantee that 
your letter will be published. Please enclose a stamped, self-addressed 
envelope with all letters for a reply. Send your questions to Doctor AS- 
CII, c/o HOT CoCo, 80 Pine St., Peterborough, NH 03458. 



Qln your July 1985 column, you presented a two-column screen 
•directory program. I tried without success to send the two-col- 
umn directory to my printer. Can you help?— M. Talutto, Floral 
Park, NY 

A Delete lines 1 70-200, 220, 230, and 250. Then add the following 
Al a lines: 

170 IFN = 1 THEN 1= l:GOTO 220 

180 F0RI = 1T0N-1STEP2 

190 PRINT#-2,STRING$(10," ");I$(I),I$(I + 1) 

210 NEXT I 

220 IF N = 1 THEN PRINT# - 2,STRING$(10," ");!$(!) 



Qln your article, "64K Modification Revisited" (HOT CoCo, June 
a 1985, p. 40), you mentioned a piggyback upgrade. Tandy is now 
selling sets of 200-ns 16K chips for $7.95 and 100-ns chips for $3.95 
each. Can I use these?— Richard Davis, Yogkum, TX 

A With Microtek Inc. (26541 Baldwin Road, Dearborn Heights, MI 
/A .48127) selling 150-ns, 4164-type 64K chips for 69 cents each, 
why spend more for a 32K upgrade? Also, the piggyback upgrade is 
not compatible with software that puts a high-resolution screen above 
the 16K boundary. It made sense when 64K chips were selling for $50 
each, but today I wouldn't do a piggyback upgrade even if I got the 
chips for free. 



01 have an older TEAC full-width drive I purchased from Dis- 
■ played Video with their controller and RS DOS 1.1. I want to 
add a Tandy drive 1 to my system, but I received no technical manual 
with the unit. Does it have a terminating resistor? Do I need a new 
cable? Should I remove the TEAC's terminating-resistor pack?— 
Michel Grimard, Sherhrooke, Quebec 

A Since your TEAC has a terminating resistor and the Tandy drive 
r\ a 1 does not (Tandy puts a terminating resistor on drive 0— move 
the resistor to the highest-numbered position when you add drives), 
use the Tandy as drive 0 and the TEAC as drive 1. Remove teeth 12, 
14, and 32 from the drive connector closest to the controller connector 
on your cable. The teeth are numbered from bottom to top, with the 
open slot facing you, as shown below: 



— remove 



OMy Radio Shack catalog says that I can have up to four drives 
•with my CoCo. Where do you hook them up? Do I need a new 
cable, or is the reference to double-sided drives?— Timmy Lindner, 
Patterson, CA 

A You need a new cable in any case . If you stick with Tandy drives, 
rA »you need their four-drive cable with its missing teeth. If you go 
with double-sided drives, you can have a maximum of three using a 
non-Tandy cable without missing teeth. Tandy extracts three of the 
four teeth that connect to the disk controller's drive-select lines, allow- 
ing you to move Tandy drives to different connectors on the cable and 
still have the one closest to the controller as drive 0. Other manufac- 
turers use jumpers inside the drives to determine a drive's number, 
so you don't have to remove teeth from the cable. Double-sided drives 
use the drive 3 select as a side select, making it impossible for Tandy's 
cable with its three missing teeth to select both drive and a side. 
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You also need to move a jumper inside your TEAC to make it drive 1. ' 



OWhy is it recommended that you use the instruction 
•A = RND( - TIMER) to seed the CoCo's random-number gener- 
ator? I assumed that TIMER would give a different value each time I 
ran the program, but typing PRINT( - TIMER) always returns a 
zero— Jules LaFrance, Ottawa, Ontario 

A TIMER gives the time since you turned on your CoCo, but only 
r\ a\i you have Extended Color Basic. Otherwise, the CoCo treats it 
as an ordinary variable, which has a value of zero by default. I'll ex- 
plain how RND works, since the CoCo's manual does not do a good 
job of it: 

• If the argument of RND is positive, RND gives you a random integer 
between one and that number. 

• If the argument of RND is zero, RND gives a random decimal be- 
tween zero and .999999999. 



• If the argument of RND is negative, the argument is used to reseed 
the random-number generator, hence the use of - TIMER. 

01 want to learn Assembly-language programming. Can you rec- 
■ ommend some good books and an inexpensive assembler? How 
do you hand-assemble an Assembly-Language program?— Shawn 
Long, Hurdle Mille, NC 

A I reviewed five Assembly-language programming books for the 
AA .CoCo in the March 1984 HOT CoCo, p. 38. The two most popular 
assemblers for the CoCo are Tandy's EDTASM + ($39.95 ROM pack, 
catalog no. 26-3250; $59.95 disk, catalog no. 26-3254) and The Micro 
Works' (P.O. Box 1110, Del Mar, CA 92014, 619-942-2400) SDS80C 
($89.95 ROM pack) or Macro-80C($99.95 disk). Bill Barden's TRS-80 
Color Computer Assembly-Language Programming (available from 
Tandy) supports the former, and Don and Kurt Inman's Assembly- 
Language Graphics for the TRS-80 Color Computer (published by Res- 
ton) supports the latter. You can order technical information on the 
CoCo's MC6809 microprocessor from Motorola Semiconductors, 3501 
Ed Bluestein Blvd., Austin, TX 78721. Ask for Advance Information 
#ADI-847. It contains data on the 6809E's instruction set and other 
technical information. I believe it is still free for the asking. 

You can use Basic POKE statements or a monitor program such as 
the one that appeared in Doctor ASCII, December 1983, p. 129, to 
hand-assemble machine-language programs. The problem with hand- 
assembly is that it is the time-consuming job of translating the op- 
codes and data into numerical inputs that you can enter into memory. 



Q 



Where can I get information on the CoCo's new video-display 
• generator?— Allen Elmer, Fallbrook, CA 

Write Motorola Semiconductors at the above address. Ask for 
•advance information on the MC6847-T1. 



OHow can I tell which PC board I have in my old grey CoCo?— 
• USN CDR Robert B. Pinell, San Diego, CA 

A After removing the CoCo's cover, with the keyboard facing you, 
a look for a serial number below the ROM-pack port. It will end 
with either a D, E, NC, or 285. If it is one of the first two, that letter is 
the board type. If it is one of the latter two, your board is what CoCo- 
nuts have christened the F board. 

QI recently purchased a 64K CoCo 2, but I get only 24,871 free 
■ bytes when I turn it on. Do I really need disk drives and OS-9 to 
get 64K?- William C. Privett, Roseville, GA 

A Your CoCo has 64K of RAM plus 16K of ROM for a total of 80K 
atA « of memory. The CoCo can address a maximum of 64K at a time. 



When you turn on your CoCo, you have 32K of RAM, of which Basic 
uses 8K (6K for high-resolution screens and 2K for housekeeping). 
With Extended Basic, your interpreter is in ROM and is addressed 
from locations 32768 to 49 15 1 . Adding ROM packs or Disk Basic gives 
you up to 32K of ROM. This RAM/ROM mode is called memory map 
0. You can access the other 32K of RAM in one of two ways: You could 
swap out the ROM for the other 32K of RAM for memory map 1. This 
is what OS-9 does, but so do a lot of other software packages such as 
Telewriter-64, which comes in a cassette version. Another way is to 
have two lower banks of 32K. This is the way print spoolers are usu- 
ally implemented on the CoCo. With two lower banks, you get maxi- 
mum memory use of your CoCo. Some programs using this method 
have 55K buffers. 



01 want to put machine-language programs into high memory at 
■ location 44560. In "Printer Answers" (HOT CoCo, March 1985, 
p. 24), you said, "Those of you with 64K can enable memory map 1 
and offset load into high memory," but you didn't say how.— Albert 
M. Huntley, Windsor, VT 

You need the program 64K Enable (HOT CoCo, June 1985, p. 45). 



OThe Tandy manuals show how to use the cassette to form files 
■ for storing data, but they create files that are only 12 lines long. 
What do I do if I have more than 12 lines of data, and how can I scroll 
through it?— MS. Casey, Sr., Casper, WY 

A You need an editor program. Better than an editor program is a 
mTA ■ word processor that generates ASCII files. There are many good 
ones for the CoCo, including Telewriter-64, VIP Writer, and Elite-Word. 

01 have Tandy's Micropainter ROM pack. On my new CoCo, it 
■produces green in color set 3 instead of blue. I finally swapped 
display chip AN48331 for chip number AN48324. I now have blue 
skies — Dennis Sledge, Ty Ty, GA 

Thanks. Perhaps this will help someone else. 



Q 



Can you recommend a book on high-resolution moving anima- 
■ tion?- William L. Warren, FPO, New York, NY 



A Try Don and Kurt Inman's Assembly-Language Graphics for the 
Jn*TRS-80 Color Computer, published by Reston. You might also be 
interested in the series of articles from HOT CoCo called "Anatomy of 
an Assembly-Language Game" (June through November 1984), by 
Mike Meehan.B 
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Mindbusters 



by Richard Ramella 




The Wild Blue Yonder 



If you were handed a sheet of paper con- 
taining your name and 999 others, you 
would probably be able to spot your own 
name so quickly you'd think it happened by 
chance. But it doesn't. 

The human brain has the ability to quickly 
focus on those things that are most impor- 
tant. And your name is one of the most im- 
portant things you possess. 

In a world of sensory overkill, this brain 
capability is especially useful. Executives 
scan mounds of memos, almost subcon- 
sciously discarding the chaff. Parents sleep 
soundly in an apartment next to a noisy in- 
terstate route but awaken if their baby whim- 
pers in the next room. A loved one's features 
can be picked out of a crowd of hundreds a 
hundred yards distant. We tend to skim 
newspapers and flip the dials of radios and 
TVs, stopping only where our emotions and 
intellect direct. 

I tested this idea by offering a child a bowl 
filled with a mix of peanuts and light choco- 
late candies of about the same size, color, and 
shape as the peanuts. As I watched, her eyes 
narrowed and flitted over the surface of the 
bowl's contents. Then they widened and she 
reached out and plucked up the chocolates 
without disturbing a single peanut. 

We have learned not only to focus but also 
to ignore, a two-edged ability that helps us 
solve problems. Answers are derived from 
patterns that are part of the puzzle— patterns 
that are extracted from chaos. 

Up and Away 

Before I tell you about this month's puzzle 
and contest, it is time to announce the win- 
ner of Puzzle Contest II— Consarnation. The 
winner is Rich Harder of Northlake, IL. His 
answer string, one of several that yield the 
highest possible score of 82 points, is: 

EEEESSSSSSNNEEEESSEENNWWSS 
WWNNEENNWWNNWWEESSSSWWWW. 

He will receive a free, one-year subscription 
to HOT CoCo. Congratulations, Rich. 
The puzzle-busting abilities of Mindbus- 
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ters readers are enough to keep a poor puzzle 
creator up nights trying to build a better 
mousetrap. Some 38 entrants had the cor- 
rect answer to Consarnation. But I can guar- 
antee that there won't be so many right 
answers to future Mindbusters puzzle con- 
tests. And you're right if you read that as a 
challenge. 

The Program Listing this month is called 
Wild Blue Yonder. It is a Basic listing that will 
run on all Color Computers. For the MC-10, 
change the P = 1024 in line 120 to read 
P= 16384. The introductory comments 
above might help you solve Wild Blue Yon- 
der. But if you are not able to solve the puz- 
zle, the answer will be printed in a future 
issue. And for those of you with bright ideas, 
good luck trying to solve it with a simple au- 
tomatic-play algorithm— theoretically , the 
first 10 moves have more than a billion com- 
binations. 

When you run Wild Blue Yonder, you will 
see part of a large oblong group of single-digit 
numbers between one and nine on a field of 
blue. As the puzzle is first drawn, only the 
upper half of the number field is visible. You 
move up and down the oblong by tapping the 
up- and down-arrow keys. As the puzzle be- 
gins, the flashing orange cursor is on a num- 
ber 3 at the center of the oblong. 

You can move the cursor in any of eight 
compass directions by tapping the following 
two-character commands: NN for north, SS 
for south, EE for west, WW for west, NE 
northeast, SE for southeast, NW for north- 
west, and SW for southwest. The number on 
the space that the cursor is resting deter- 
mines how many spaces the cursor will move 
in the direction you choose. The first direc- 
tion you select in Wild Blue Yonder will al- 
ways move the cursor three spaces. 

The object of the puzzle is to find your way 
yonder— to the blue area of the screen sur- 
rounding the oblong. However, don't go too 
far. A winning position is any blue space 
touching the perimeter of the oblong field of 
numbers. If you direct the cursor more than 
one space outside the oblong, you'll have 
placed it in limbo. You cannot move from a 



position that is not within the field of num- 
bers, and your only recourse is to restart the 
puzzle. There is one other important rule: 
The line of travel to reach a winning position 
cannot fall over any of the blue area. 

The program purposely allows the possi- 
bility of game-ending Basic error messages. 
Keep in mind that the number position to 
which you will move the cursor in making a 
direction selection must be visible on the 
screen. A move that takes the cursor "off the 
screen" will produce an FC (illegal-function 
call) error. 

When you make 61 moves without finding 
your way out, the program ends with an OS 
(out of string) error. This is also purposeful, 
for the solution takes fewer than 61 moves. 
Once you have solved Wild Blue Yonder or 
completed an attempt, you can display a list 
of the moves you made by typing "PRINT 
SC$" and pressing the enter key. One last 
note: Be sure to turn up the sound on your 
TV or monitor; random tones will sound if 
you beat the puzzle. Ladies and gentle- 
men. . .fry your brains! 

Puzzle Contest VII 

This month's puzzle contest involves the 
solution to Wild Blue Yonder. When and if 
you solve it, type "PRINT SC$" to see the 
move string. Using some or all letters in the 
string, spell the longest English word you 
can. The winning move string and the word 
you form will constitute your entry. The win- 
ner will receive a one-year subscription or ex- 
tension to HOT CoCo. Next month: Uncle 
Arnold's coin game.B 



Eds. note— To enter Puzzle Contest VII, send 
your name, address, move string, and the word 
you spelled to Richard Ramella, 1493 Mt. View 
Ave., Chico, CA 95926. The winner will be the 
entrant who offers the correct move string and 
the longest English word spelled with its letters. 
In case of a tie, the winner will be selected at ran- 
dom from the tying entrants. Entries must be 
postmarked by November 30, 1985. 



Program Listing. Wild Blue Yonder 

100 REM * WILD BLUE YONDER * COL 
OR BASIC 

110 CLS3: PRINT Q 232 , "WILD BLU 
E YONDER" ; 

120 CLEAR 800: P=1024: DIM A$(24 
),J(3): FOR A=l TO 21: B$=B$+CHR 
$(175) 

130 IF A=l THEN Bl$=B$ 

140 IF A=2 THEN B2$=B$ 

150 IF A=3 THEN B3$=B$ 

160 IF A=4 THEN B4$=B$ 

170 IF A=5 THEN B5$=B$ 

180 IF A=6 THEN B6$=B$ 

190 IF A=9 THEN B9$=B$ 

200 NEXT: CLS3 : U$=CHR$(94): D$= 

CHR$(10) 

210 A$(0)=B$: A$(1)=B$: A$ ( 2 ) =B9 
$+"477"+B9$ 

220 A$(3)=B6$+"544833463"+B6$ 

2 30 A$(4)=B4$ + "1451114517135 ,, +B4 

$ 

240 A$(0)=B$: A$(1)=B$: A$(5)=B3 

$ + " 49496 7 55 58 7668 5 "+B3$ 

250 A$(6)=B2$+ n 37298356739187585 

"+B2$ 

260 A$(7)=B2$+"14784292711822763 
"+B2$ 

270 A$(8)=B1$+"72185531131334286 
13"+B1$ 

280 A$(9)=B1$+"42672524225432817 
73"+Bl$ 

290 A$(10)=B1$+ B 4165111914344319 
827"+Bl$ 

300 A$(ll)="43523223242535113553 
7" 

310 A$(12)="27151131533242377542 



320 A$(13)="25226124463412126518 
8" 

330 A$(14)=B1$+"4375193445294195 
748"+Bl$ 

340 A$(15)=B1$+"4167834341312323 
624"+3l$ 

350 A$(16)=B1$+"7326153923215758 
954 n +Bl$ 

360 A$(17)=B2$+"1673481212122894 
1"+B2$ 

370 A$(18)=B2$+ n 2547875613578729 
3"+B2$ 

380 A$(19)=B3$+"6 56 467 252 26 347 4" 
+ B3$ 

390 A$(20)=B4$+"2312333213211"+B 
4$ 

400 A$(21)=B6$+"744573447"+B6$ 

410 A$(22)=B9$+ n 334"+B9$: A$(23) 

=B$: A$(24)=B$ 

420 H=398: Y=0: GOSUB 660 

430 X$=INKEY$ 

440 H1=PEEK(P+H) : POKE P+H,255: 
GOSUB 670: POKE P+H,H1: GOSUB 67 
0 

450 IF PF>349 AND PF<357 THEN PO 
KE P+H,255: SOUND 100+RND ( 50 ) , 1 : 

GOTO 450 
460 IF X$= nn THEN 430 
470 IF X$=D$ AND Y>0 THEN Y=Y-1 : 

H=H+32 

480 IF X$=U$ AND Y<9 THEN Y=Y+1: 
H=H-32 

490 IF X$=D$ OR X$=U$ THEN GOSUB 
660 

500 IF X$="N" OR X$="S H OR X$ = "W 



" OR X$="E" THEN C$=C$+X$ 

510 PK=VAL(CHR$(Hl-64) ) : PRINT @ 

93, C$;: IF LEN(C$)<2 THEN 430 
520 IF C$<> n NN" AND C$O n SS n AND 

C$<>"WW" AND C$<>"EE" AND C$<>" 
NW" AND C$O n SE n AND C$<>"SW" AN 
D C$<>"NE n THEN 680 
530 IF C$="NN" THEN H=H-(PK*32) 
540 IF C$="SS" THEN H=H+(PK*32) 
550 IF C$="WW" THEN H=H-PK 
560 IF C$="EE" THEN H=H+PK 
570 IF C$="NE" THEN H=H+PK-(PK*3 
2) 

580 IF C$="NW" THEN H=H-PK-(PK*3 
2) 

590 IF C$="SW" THEN H=H-PK+(PK*3 
2) 

600 IF C$="SE" THEN H = H4-PK+ ( PK*3 
2) 

610 IF PEEK(P+H) <>175 THEN 680 
620 SC$=SC$+C$ 

630 J(0)=PEEK(P+H-32) : J(1)=PEEK 
(P+H+32): J(2)=PEEK(P+H-1) : J(3) 
=PEEK(P+H+1) 

640 PF=0: FOR T=0 TO 3: IF J(T)> 
112 AND J(T)<122 THEN J(T)=J(T)-- 
113 

650 PF=PF+J(T): NEXT: GOSUB 680: 
GOTO 430 

660 G=Y : FOR X=4 TO 484 STEP 32: 

PRINT @ X,A$(G);: G=G+1 : NEXT: 
RETURN 

670 FOR T=l TO 20: NEXT : RETURN 
680 C$="" : PRINT @ 93,B3$;: GOTO 
430 

690 REM * END OF LISTING 
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COLOR COMPUTERS 



CALL (517) 625-4161 
CALL TOLL FREE 1-800-248-3823 



COMPUTERS 



COMPUTERS 



LIST OUR 

PRICE PRICE 

26-3136 16K Extended Color Computer 2 $ 119.95 $ 102.00 

26-3127 64K Extended Color Computer 2 219.95 175.00 

26-3129 Disk Drive 0 for Color Computer 349.95 290.00 

26-3130 Disk Drive 1 for Drive 0 199.95 169.00 

26-1276 DMP-105 80 cps Dot Matrix 199.95 169.00 

Telewriter 64 Tape 49.95 42.00 

Telewriter 64 Disk 59.95 49.00 

VIP Writer 69.95 59.00 



LIST OUR 

PRICE PRICE 

26-1070 Model 4D Desktop 64K $ 1199.00 $ 995.00 

25-1000 Tandy 1000 1 Dr. 128K 999.00 775.00 

25- 3000 Tandy 1200 10 Meg H.D. 256K 1999.00 1525.00 

26- 5103 Tandy 2000 2 Dr. 256K 2499.00 1225.00 

26-5104 Tandy 2000 1 Dr. 10 Meg H.D. 256K. . . . 3950.00 1885.00 

26-3860 Tandy Portable 200 24 K 999.00 725.00 

26-1208 CCR 81 Tape Recorder 59.95 50.00 

26-1209 CCR 82 Tape Recorder 49.95 42.00 



SOFTWARE 



PRINTERS 



LIST OUR 

PRICE PRICE 

VIP Database $ 59.95 $ 49.00 

VIP Terminal Disk 49.95 45.00 

VIP Integrated Library 149.95 139.00 

RADIO SHACK Software — 15% Off 

Tom Mix Software — CALL 

Comrex SS/DD 10 Pack Disks 21.00 14.00 



LIST OUR 

PRICE PRICE 

Epson LX-80 Printer (Friction Feed) $ 299.00 $ 250.00 

Epson LX-80 Tractor Feed 49.95 40.00 

OKIDATA 182 Printer 299.00 245.00 

STAR SG-10 Printer 299.00 250.00 

C.ITOH 7500 Prowriter Printer 289.00 225.00 

Botek Serial to Parallel Interface 59.00 49.00 



MONITORS 



ACCESSORIES 



Comrex 12" Green Monitor 

Comrex 12" Amber Monitor 

Comrex 13" Color Monitor 

Amdex 300A Monitor 

Teknika RGB/Composite Color Monitor 399.00 

VIDEO Plus Monitor Adaptor — 



LIST 
PRICE 

119.00 
129.95 
329.95 
199.95 



OUR 
PRICE 

$ 95.00 
110.00 
285.00 
155.00 
299.00 
32.00 



26-3018 Extended Basic Kit 

26-3017 64K Memory Kit 

26-3008 Joysticks (PAIR) 

26-3012 Deluxe Joystick (EACH) . 
26-1178 DCM-3 Direct Connect Modem . 



LIST 
PRICE 

S 39.95 
69.95 
19.95 
29.95 
59.95 



OUR 
PRICE 

$ 37.00 
59.00 
16.95 
25.00 
50.00 



Anchor-Signalman Modem 300/1200 Baud 399.00 275.00 



d offers may be changed c 



king fee Defective items re 



without notice Advertised prices are cash prices C O D accepted ($10 00 chafge per 



e return merchandise authorization Call for R M A f 



:r before returning Delivery is subiect to product 



n C O D Call for further COD information ) M C . Visa add 2%. AX l 
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NEW 

DISK 
DRIVES 



STARTING AT 

$ 89, 



95 




New Low Price! 




40 Tks 6Ms 
Double Sided 
Double Density 



40 or 80 Tracks 
1/2 Hght.Teac/Panasonic 



TAN DON MPI TEAC 



WITH CASE & 
POWER SUPPLY 

$129.95 




Speed 6 ms tk to tk and up 
Capacity 250k unformatted 
Tracks 40 

Warranty now 1 YEAR 
We carry only the finest quality disk drives *no seconds* no surplus 

SATISFACTION GUARANTEED!! all drives fully TESTED&WARRANTEED 

Complete Disk Drive with Power Supply&Case r??? $129.95 

Two Drives in Dual Case& Power Supply t??p Jfc2-7&95 CALL 

TfQcKs40 

1/2 ht double sided double density Disk Drives (Panasonic/Teac)$ MM* 
1/2 ht double sided double density Disk Drive with ps&case„.. v ^$49§335 CALL 
low to use your new drive system on audio cassette 

Single ps&case $44.95 Dual 1/2 ht ps& case $54.95 Dual ps&case.. Call 





$129.95 



Color Computer Controller fj&M) 

DRIVE & FOR RADIO SHACK COLOR C OMPUTER 

TANDON, MPI OR TEAC DRIVE (SINGLE SIDED 40 TRACKS SPEED 5 MS TRK TO TRK& UP) 
POWER SUPPLY and CASE, TWO DRIVE CABLE WITH ALL GOLD CONNECTORS 6 OA I CI 

c^J&M CONTROLLER, MANUAL and DOCUMENTATION $£4&<f5 $ SALE! 

^ -.DRIVE 6 FOR RADIO SHACK COLOR COMPUTER 



& PANASONIC 1/2 HEIGHT DOUBLE SIDED DOUBLE DENSITY DRIVE 500K unformatted vV 
^ POWER SUPPLYand CASE, 2 DRIVE CABLE WITH ALL GOLD CONNECTORS Gj^Q A I C I 

J&M CONTROLLER, MANUAL and DOCUMENTATION $27££5" # ^ ### oALfc! 

TAKE ADDED SAVINGS ON TWO DRIVE SYSTEMS tk ^Diskettes 

S3 CONTHCX DATA ^1795 




..$Call 
$29.96 



DISKETTES with free library case. 
Unadvertised Specials 

Drives cleaned,aligned& tested. 

TECHNICAL STAFF ON DUTY, PLEASE CALL FOR ASSISTANCE. 
CALL US TODAY!! (617)234"7047 * DEALER INQUIRIES INVITED 

' ORDER TOLL FREE 1-800-635-0300 (617) 234-7047 

TRUE DATA PRODUCTS 



w 



195 Linwood Street, P.O. Box 546 
Linwood, Massachusetts 01525 
(617) 234-7047 



We welcome 



HOURS MON-SAT 9-6 (EST) 



• Visa/Master Charge 

• Checks (allow 2 weeks for clearing] 

• CO.D. Add $2.00 
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New Hard Drives 

COMPLETE SYSTEM JUST PLUG IN 



Call For 
BEST PRICE 




^ QUALITY 
VIDEO MONITORS 

Starting at £ YQ m ^ 

MONOCHROME 
COLOR MONITORS 




Warranty - One Full Year 



VIDEO DRIVER 



ENABLES YOUR COCO TO OPERATE WITH A 
VIDEO MONITOR INSTEAD OE A TELEVISION! 



5 to 20 Megabyte, ready to run on the TRS 
80 Model I/III/IV/4P, color computer, 

SCREEN DUMP PROGRAM 

64K UPGRADES j\j The best screen dump program for the Epson& Gemini 

printers ever!! Have the option of standard images 
or reverse w/regular or double sized pictures $-j Q95 

sp-3 interface for Color Computer 

■ 300-19,200 BAUD rates 

■ External to printer — No AC Plugs 

■ Built in modem /printer switch — no need for 
Y-cables or plugging/ unplugging cables 




PRINTER CABLES AND 
INTERFACES AVAILABLE 
Call for current pricing 



PRINTERS 



* 100 - 120 - 160 CPS 

* Bidirectional Logic Seeking 

* Friction and Tractor 
' 9X9 Dot Matrix 

* True Decenders 

* High Res-Bit Image Block Graphics 
GEMINI 10X (9 Inch Carriage, 120cps) Friction and Tractor $CALL 
GEMINI 15X (15 Inch Carriage. 120cps) Friction and Tractor. . $CALL 

DELTA 10 (10 Inch Carriage, 160cps) Friction and Tractor $CALL 

POWER TYPE Letter quality 



Super Script-Subscript 
Underlining 

Backspacing Doublestnke 
5. 6. 8 1/2. 10. 12 and 17 Pitch 
Programmable Line Spacing 
SIX (6) MONTH WARRANTY 



Only: 





$239 



SG-10 



COMPLETE SYSTEM 
Nothing more to buy! 

Dealer inquiries invited 




now 
with 
screen 
dump 




TRUE DATA PRODUCTS 

195 Linwood Street, P.O. Box 546 
Lin wood, Massachusetts 01525 



CALL US TODAY!! 
• v £ ORDER TOLL FREE 



(617)234-7047 

1-800-635-0300 



Tell them "I saw it in HOT CoCo.' 
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The Computer Room- 

by Scott L. Norman 

Catching Up with 
Appropriate Technology 



During the energy crisis of the 'seven- 
ties, we heard a lot about using "appro- 
priate technology," which meant that you 
should use no more than the minimum 
amount of sensible technological leverage to 
perform a given task, so as to consume the 
fewest resources and do the least damage to 
the environment. 

Perhaps we should extend the same think- 
ing into the area of personal software. Have 
you ever shown off your CoCo, only to be 
asked, "But what do you use it for?" That's 
often a tough one to answer. It's easy enough 
to computerize a store or office, but much 
more difficult to pin down the proper role for 
applications software in the home. 

Record keeping and fact finding seem like 
natural applications: There are always a mil- 
lion things to keep track of around the house. 
For this, I find smaller, specialized software 
packages to be of more use to the less tech- 
nically minded members of the household 
than are powerful, general-purpose pro- 
grams that require more computing exper- 
tise. More important than software that offers 
raw computing power are such factors as ac- 
ceptance of user input in a variety of formats, 
the ability to retrieve information based on 
partial or imperfect matches to a request, 
and extensive error trapping: user friendli- 
ness, in other words. 

For Dedicated Shoppers Only 

If you do much grocery shopping, espe- 
cially for a large family, a data-file manager 
that keeps track of your grocery coupons 
could be a significant aid to your budget. 

Kolourdex for Koupons is a product of the 
Kensoft company (2102 50th St., Kenosha, 
WI 53140). The program requires 32K and 
comes on tape for $24.95 or disk for $28.95. 
(You can also buy a tape-to-disk upgrade for 
$7.50.) It can tell you if you have a coupon 
for a specific product, list all your coupons 
that apply to a particular type of item, and 
display all the coupons that expire on or be- 
fore a specified date or that are worth more 
than a specified amount. The tape version 
can keep track of 400 coupons, while the disk 
edition can handle 720. 

Programs like Kolourdex have a place in 
certain homes, and I'm going to use it to il- 
lustrate some good and bad practices found 
in home software. This isn't meant to be an 
exercise in picking on the product; it's by no 
means the worst offender I've ever come 
across. Kolourdex does, however, contain 
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features that exemplify some of my thoughts 
about using the appropriate technology to 
computerize everyday activities. 

The nonprotected Kolourdex disk contains 
three Basic files: KDXKPNSD, the main pro- 
gram: KDXKPNDL, which reorganizes data; 
and KDXKPININ, which initializes a new file 
when you first run the system. The single 
data file on a given disk is always assigned 
the default name KPNS. This file, and some 
necessary indices, are created as you work 
with the program. 

But why such confusing file names? I pre- 
fer something easier to remember. A quick 
fix to this problem is to add a couple of one- 
line "shells" to your program disk to call the 
real program. For example, you might store 
the one liner, 10 RUN "KPXKPNSD", under 
the name COUPONS/BAS, so that your Ko- 
lourdex command line would be the easily 
recalled RUN "COUPONS". I use such calling 
routines with a lot of my favorite applications 
software and frequently include a POKE 
statement in the startup routines to establish 
9,600-baud communication with my printer, 
as well. 

You could simply rename the main pro- 
gram and be done with it, but I prefer to use a 
separate routine whenever I think portions of 
a commercial program might call each other 
by their original names. I wouldn't want to 
rename the main Kolourdex file and then find 
that part of the code contained an explicit ref- 
erence to the original name, KDXKPNSD. 

Once underway, Kolourdex lets you add 
coupons to a file, examine records selected 
according to several criteria, and change or 
delete records; in other words, it's a well-be- 
haved little data manager. A coupon record 
consists of just a few items: the description 
(the specific name of the product), the cou- 
pon value, the expiration date, and the prod- 
uct type. The latter is a number from 1 to 12 
and is used for selecting subsets of a data file. 
Normally, you use the codes that Kolourdex 
assigns: number 1 for baby food, cereal, and 
other breakfast foods; 2 for dairy products, 
margarine, diet products, and oils; and so on. 
You can assign your own meanings to these 
codes as long as you use them consistently 
within a given file, but I can't find a reason 
to make such changes. The originals seem to 
cover everything on a typical shopping list. 

You enter data for each coupon in response 
to video prompts. Kolourdex accepts coupon 
value data in several formats. For example, if 
you have a 25-cent coupon, you can answer 
the amount prompt with $0.25, 0.25, or .25. 



That's the way a consumer-oriented program 
should behave. On the other hand, coupon 
descriptions cannot exceed 19 characters. 
That's not enough, especially when you in- 
clude the manufacturer, which is necessary 
information. 

If you've got the patience, you could go into 
Kolourdex and change the 19-character limit 
by altering all references to the length of the 
description field and the total space set aside 
for each record. However, lengthening the in- 
dividual records means reducing the capac- 
ity of your file. 

Kolourdex can deal with multiple identical 
entries— a good feature that lets you keep 
track of several copies of the same coupon. 
However, the program's ability to search for 
a particular entry is somewhat limited. Any 
target string you enter must match the first 
part of the coupon description. If you have an 
entry entitled ABC Corn Flakes, you'll never 
find the coupon listing unless you specify a 
string beginning with ABC as your search 
target. (Actually, just specifying A is accept- 
able, but you'll generate a lot of false "hits.") 

This method works fine if you adhere to a 
fixed format when you enter your coupon 
data. I prefer a more forgiving type of search 
for a consumer product— one that reports a hit 
whenever the target matched any substring 
of the description. For example, at one time I 
might be interested in a coupon specifically 
for ABC Corn Flakes, while at another I might 
want a coupon for any old corn flakes. 

Kolourdex should also include a print rou- 
tine, just in case you don't have your coupon 
files right in front of you as you run the pro- 
gram, or so you can pick items of interest as 
you type your shopping list. Kolourdex au- 
thor Glenn Janes suggests that the Delete 
Koupons (sic) routine might be a good place 
to insert a couple of PRINT# - 2 statements 
to provide printout capability. 

Kolourdex is inexpensive and includes 
enough file-handling code to form the basis 
of a useful piece of home software. It does 
need a couple of modifications, though. Let 
me know if patches of the sort I've outlined 
are of interest to you; perhaps we can return 
to the program and do some polishing up. I'd 
also like to have your thoughts about the 
practicality of household software, user 
friendliness, and related matters. ■ 

Scott Norman is the manager of solid-state 
science at GTE Laboratories in Waltham, MA. 
Write to him at 8 Doris Road, Framingham, 
MA 01701. 
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CoCo's Best & Fastest Spreadsheet System 

ACCLAIMED BY THE EXPERTS 

"DYNACALC is my choice for a CoCo spreadsheet" 
Dan Downard, RAINBOW, September, 1984. 



RAINBOW 

CERTIFICATION 
SEAL 




"Eat your heart out, Lotus 1-2-3!" 
Scott Norman, HOT CoCo, October, 1984 

Built-in Features: 

51 x 24 Display with Lower Case 
Super-fast Smart Screen Refresh 
Auto-Repeat Keyboard Driver 
Keysaver (TM) repeats last command x times 
Disk Operating System (works just like ROM DOS) 
Easy communication with BASIC/DOS programs 
Two-way communications with PRO-COLOR-FILE ★ Enhanced* 
Outputs to ASCII Word Processors like Telewriter-64 
Fast 16-Digit Arithmetic with Scientific Functions 
Summation, Mean, and Standard Deviation Functions 
Logical Functions with String & Numeric Comparison 
String locate command to navigate large worksheets 
Sort full or partial worksheet by columns or rows 
Line, Bar, Hi/Lo/Close, Circle Graphs 
Full Graphics captioning and overlay facility 
Graphics Drivers for all popular Printers 
Joystick/Mouse Driver for Cursor Movement 
Works with any ROM versions, even JDOS 
33k Available Worksheet Space 
Up to 256 Columns or 256 Rows 
Can use VisiCalc worksheets & training materials' 
On-screen Help Messages 

FOR 64K DISK SYSTEMS 

available from 



NOW 
ONLY 

$9995 




980 



now with 

GRAPHICS! 



Jan F*h RSr Apr Vlav 



Jun 



:.*p dct Nov EJc 



CANADA-CDN $129.95 
DATAMAN INTERNATIONAL 

420 FERGUSON AVE. N. 
HAMILTON, ONT. L8L 4Y9 
(416) 529-1319 AUSTRALIA 



^^^^^^ 




PARIS RADIO 
161 BUNNERONG RD. 
KINGSFORD 2032 NSW 
(612) 344-9111 



COMPUTER SYSTEMS CENTER 

42 Four Seasons Center #122 
H^lg.Q Chesterfield, MO 63017 USA 
(314) 576-5020 

10 to 6 Mon.-Fri. 
or your local DYNACALC dealer 

Price US$99.95 
Outside North America add $10 postage 

DYNACALC Reg. U. S. Pat. Off. 
Lotus and 1 : 2-3 are trademarks of Lotus Development Corp 
PRO-COLOR-FILE is a trademark of Derringer Software 
Telewriter-64 is a trademark of Cognitec 
VisiCalc is a trademark of VisiCorp. 
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Reviews 

edited by J. Scot Finnie 




mten 



P51 Mustang Attack 20 

Marooned 22 

Trivia Fever 24 

Spelling ....24 

Personal Finance 26 

ChesSD 27 



Review-Ratings Key 

6 Unsurpassed 

5 Excellent 

4 Above Average 

3 Acceptable 

2 Needs Improvement 

1 Unsatisfactory 

Ed note— The overall ratings that appear in 
the review-rating graphs are an average of the 
ratings for all the categories rounded to the near- 
est quarter of a rating point 
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The P51: No Milk Run 



by Scott L Norman 



sound documentation 
graphics I payability 
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OVERALL RATING 4.75 



Games 



P51 Mustang Attack Flight Simulator is mar- 
keted by Tom Mix Software, 4285 Bradford 
N.E., Grand Rapids, Ml 49506, 616-957-0444. 
It requires 32K and sells for $29.95 on cassette 
and $34.95 on disk. A three-foot cable to con- 
nect two Color Computers for dog fighting is 
available for $10.95. 



Tom Mix Software has sent us on peril- 
ous high-tech reconnaissance missions 
with SR-71 and challenged our weekend air- 
manship with Worlds of Flight. (See the re- 
views in the April and December 1984 issues 
of HOT CoCo, pp. 32 and 20, respectively.) 
P51 Mustang Attack offers armchair aces the 
chance to recreate a bit of the tough World 
War II fighter combat. So slip into your old 
leather jacket, strap in, and follow me. 

The Cockpit and Flight Plan 

P51 makes use of some of the out-the-win- 
dow display technology introduced by 
Worlds of Flight. The scenery is much less 
detailed, however. All you see through your 
P51's windshield are the horizon, a few air- 
fields, and enemy aircraft. The engine 
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sounds are gone, too. I presume that these 
simplifications were made in order to speed 
up the action. P51 comes close to giving real- 
time response. That's critical to the pro- 
gram's major innovation— the ability to link 
two CoCo's in mock combat! 

Although there is a solo mode in which you 
can sharpen your flying and gunnery skills, 
the real action begins when you connect two 
computers, fire up a copy of P5 1 in each, and 
do battle. The computers can either be right 
next to one another linked with a short null- 
modem cable or at opposite ends of the coun- 
try connected by modems and telephone 
lines. The latter method slows down screen 
responses by a factor of two or so and opens 
up the possibility of horrendous telephone 
bills, but it does work. 

The cockpit display consists of the wind- 
shield with gunsight and a small but busy 
instrument panel containing airspeed indi- 
cator, altimeter, various status readouts, and 
navigation aids. 

P51's action takes place in the skies above 
four 10-mile quadrants arranged in a square 
grid like this: 

1 2 
3 4 

Its square world wraps around, so if you fly 
past the border of one quadrant, you merely 
enter the next one along the aircraft's pro- 
jected track. 

Each quadrant contains a single runway, 
and in the war-game mode, you can capture 
an enemy airfield by scoring gunnery hits on 
its landing beacons, denying use of the run- 
way to your opponent. 

You can call for a birds-eye view of any 
world on radar or switch over to a conven- 
tional compass. The radar can even be reset 
to eliminate the clutter of old flight tracks. 



This is handy after combat when you are 
trying to get your bearings to return to a 
friendly airfield. 

Flight Control 

As befits software named for the best 
fighter-bomber of its time, the simulated P51 
is a hot aircraft. Fully controlled rolls and in- 
side and outside loops are possible. And the 
performance figures seem realistic; at full 
throttle, an inside loop takes about 15 sec- 
onds and a 360-degree roll about half that. 
The manual contains a concise discussion of 
the principles of flight, including those as- 
pects that have been simplified for the pur- 
pose of this program. 

The throttle, landing gear, and flaps are 
controlled from the keyboard, while the aile- 
rons, elevators, and guns are operated by the 
joystick connected to the right joystick port. 
(The simulated P51 does not have a rudder 
control.) I recommend, as does the manual, 
that you use joysticks with P5 1 Mustang At : 
tack that provide spring centering and ad- 
justable trimmers, such as Tandy's Deluxe 
Joystick made by Kraft. 

A final control feature is the wing leveller, 
a kind of fictitious autopilot that keeps the 
wings horizontal and the aircraft heading 
constant unless you continuously force the 
aircraft into a banked turn. The wing leveller 
is a boon to the novice, but it slows down the 
P51's roll rate and should be switched off for 
combat. 

The Dog Fight 

In the solo practice mode, the CoCo gener- 
ates an image of a drone aircraft at which you 
can shoot. The drone always flies a straight 
course, descending continuously from 



5 1 ,000 feet down to the ground. That doesn't 
make it a sitting duck. First you have to find 
it, using your radar and your Mark I eyeballs; 
then you have to maneuver your plane into 
a good firing position and shoot accurately. 
You have 99 shots in each of your two wing 
guns, and you can squeeze them off one at a 
time or fire continuously. 

Although 99 rounds per gun is a little 
skimpy, the actual firing time available to 
you seems realistic. Your fighter's limited 
fuel supply is also a factor. If you keep the 
throttle wide open, you'll only have enough 
fuel for 10 minutes of flight! You can refuel 
and rearm by landing at a friendly airfield. 

I found P51 surprisingly easy to land, al- 
though multiple bounces (complete with 
sound effects) are not uncommon. The rap- 
idity with which the screen updates helps the 
learning process. However, the landing skills 
I acquired in Worlds of Flight might have 
something to do with how easy the landing 
process seems to me. And landing is by no 
means guaranteed. Attempts at high-speed 
landings will result in damaged landing gear 
or worse. 

Players in a two-person game can signal 
each other as to the status of the hostilities, 



the categories of which are peace, war, talk 
(a game-freeze mode), and "turkey." The last 
category is equivalent to declaring war, but 
it allows you to insult your opponent first! 

Once engaged in a dog fight, the displays 
of the two computers are updated simulta- 
neously. Enemy hits cause bullets holes to 
appear on your windshield and control 
panel. The manual has a chart that shows 
the damage inflicted on your plane based on 
the location of bullet holes. These damages, 
plus the distance, if any, by which you miss 
the runway in landing, govern the time it 
takes to repair your aircraft after you land. In 
the meantime, your opponent could be 
shooting up your runway beacons. 

The actual conduct of P51 Mustang Attack 
warfare is complicated; the details of aircraft 
replacement, repair times, and so on are in 
the documentation. It is possible to specify 
one of three skill levels for each player; the 
higher the skill level, the greater the number 
of hits is required to inflict each kind of dam- 
age to your opponent's plane. 

Debriefing 

I am enthusiastic about this latest Tom Mix 



flight simulation. What would I change if I 
could? The altimeter (the two-hand type) 
should be modified to include a multiples-of- 
10,000-feet indicator. It is easy to lose track 
of your altitude in a dogfight when your sole 
concern is concentrating on getting your op- 
ponent into the sights. By the time the P51's 
altitude-warning horn goes off at 500 feet, it 
might be too late to take corrective action. 
This is no particular fault of the simulation, 
however. A human-factors specialist once 
told me that World War II altimeter designs 
often invited misinterpretation by pilots dur- 
ing stressful moments. 

Outside of that, I found only one potential 
glitch in the program. As an experiment, I 
deliberately took off with the wing flaps low- 
ered. By the time I got the flaps cleaned up, I 
found that I couldn't retract the landing gear. 
Although this is an unlikely situation, it's a 
tough way to fight a war. 

P5 1 Mustang Attack is a fine program and 
an outstanding simulation that leaves very 
little room for criticism. But I do have one 
historical bone to pick: The airplane pictured 
in the promotional material for P5 1 Mustang 
Attack is actually the P40 War Hawk. Sloppy, 
guys, very sloppy. ■ 



(s3-port) v.t. 1. To bear the weight of, especially from underneath; uphold in position; keep from failing, etc. 
2. To bear or sustain (weight; etc.) 3. To keep from failing; strengthen: PBJ, Inc. supports their product line with 
technical personnel that are always there to help you. 4. To serve, to uphold or corroborate (a statement, theory, 
etc.) substantiate; verify: PBJ, Inc. receives testimonials on a daily basis that support their product line. 5. To 
provide (a person, institution) with maintenance; provide for: PBJ, Inc. supports the CoCo user by consistently 
creating new advancements in their field. 

Synonym: PBJ, lllC. Circle Reader Service card #214 -n .^ , „„..... .„ • • ,.. ...... 

A long description indeed, yet very applicable to the kind of service delivered by PBJ, Inc. When 
the serious CoCo user needs back-up support, technical information or assistance, PBJ, Inc. is 
there! From the products they manufacture through to the strategic solutions they offer, 
PBJ, Inc. has rightfully gained the reputation of "the company with the most support for the 
Color Computer.' ' 

"Innovative Products for the CoCo User" 



E9 



ins. 



Call for information on our Tandy 1000 products. . . . 
Call or write today for our FREE catalog. . . . 
P.O. Box 813 • North Bergen, N.J. 07047 • 201-330-1898 
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by Richard Ramella 
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OVERALL RATING 4.00 



Games 



Marooned is a graphics-adventure game 
marketed by Saguaro Software, P.O. Box 1864, 
Telluride, CO 81435, 303-728-4937. It requires 
32K, Extended Color Basic, and a disk drive. It 
sells for $29.95 

In every mystery there is a door that must 
be opened, no matter the danger. 
When the UFO lands in the cornfield, you 
won't just wave at it and go to bed. You are 
adventurous, so you'll walk up to the strange 
craft and step inside. And then it will take off, 
of course. 

Lucky for you, Marooned is a graphics ad- 
venture. For the hardcore adventurer it will 
be fairly easy. Beginners with a logical ap- 
proach will find it tantalizing and eventually 
accessible. 

If you have never tried a computer adven- 
ture, a brief explanation is in order. Text and 
graphics adventures are stories in which you 
are the main character. You travel in logical 



moves on an electronic map. You can pick up 
articles you find along the way, use them, 
and even confront characters within the 
story plot. The central problem usually fo- 
cuses on a mixed struggle for survival and 
escape. And Marooned is no exception. 

At the start of the game, after the space 
ship takes off, you wander among the rooms 
of the alien aircraft, finding and using arti- 
cles. It isn't telling too much to reveal that 
you will probably succeed in crashing the 
ship onto an alien planet— where the game 
continues. The landscapes of the planet are 
more artful than the sterile rooms of the ship, 
but I was confused at times when the same 
landscape showed up in several places. 

Marooned bows to convention with a sim- 
ple lexicon of two-word commands with 
which veteran computer-adventure players 
will be familiar. The simple construction re- 
quires one verb and one object, such as get 
gold, drop worm, and examine chair. You can 
even ask for hints, although not many help- 
ful ones are provided. 

As in most computer adventures, it is pos- 
sible for your game character to die. But Ma- 
rooned offers a game-save feature that allows 



1, MAROONED 

:•';>•:>'■:>-: Copyright <c) 1965 t»y 
[:':[< Saguaro software Co. 

: : : : : : : prograwmtd by 
::::. Steve Hartford ver?.? 



Marooned's title screen shows the alien space- 
craft in flight. 



you to store as many as nine different game 
positions on disk. A player can stop and save 
the game at a critical point and go back to it 
later. The best way to use the game-save fea- 
ture is to chain your game saves. When you 
reach a critical point in the game, save it. 
Then when you make it past the danger un- 
scathed, save the game again to the same file 
name. If you don't make it past the next crit- 
ical point, you'll be able to start out past the 
last one. As you are nearing completion of the 
adventure, you'll find that you have a chain of 
game saves charting the most important mo- 
ments of the adventure. 

Marooned is essentially a Basic listing ov- 
erlaid on scenes drawn from binary files. 
This makes the game fairly fast. The pro- 
gram also features text in the Extended Color 
Basic graphics mode. I found a minor bug 
while adventuring in a cave location, where 
I insisted on going in an illogical direction. It 
caused a BS (bad subscript) error and loss of 
the game. This single flaw is no reason to rule 
out this interesting game, however. Saguaro 
Software guarantees the program disk to 
load for the original owner for life and offers 
to replace the disk if it fails. You can also 
make a copy of the disk for safekeeping. The 
program's documentation is simple and to 
the point. It consists of only two pages, but it 
is enough to get you started. You'll take it 
from there. 

Marooned's theme— wandering aboard a 
deserted UFO and being stranded on an alien 
planet— is not a strictly new idea to computer 
adventure. But if you have never been on an 
alien planet, Marooned will be new to you. 
The game is both fun and challenging. Its 
graphics are good, and its mysteries are not 
so overpowering as to verge on boring most 
players. I recommend Marooned, especially 
to first-time adventurers. ■ 





Drive 1 



125 



95 



Your Choice 
Silver or White 



SUPER DRIVE SALE 



219 



95 




Drive 0 



Special prices on new first quality disk drives. They even have GOLD connectors on the back. Some other places charge $279.00 
for dr. 1 and $349.00 for dr. 0, not us! Drive 1 is for mod I, Second Color Computer drive, or external mod III, IV. Drive 0 is your 
first Color Computer drive and comes complete with controller, cable and manual. Bare drives for internal mod III, IV, only $79.99! 
For dbl-sd add $45.00 

64K EXT. BASIC COLOR COMPUTER II $138 95 



The Computer Center 

901-761-4565, 5512 Poplar, Memphis, TN 38119 

Add $4.90 for shipping & handling— Visa, M/C accepted— Dealer inquiries welcome 
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Telewriter-64 

the Color Computer Word Processor 



■ 3 display formats: 51/64/85 
columns x 24 lines 

■ True lower case characters 

■ User-friendly full -screen 
editor 

I Right justification 
I Easy hyphenation 

■ Drives any printer 

■ Embedded format and 
control codes 

■ Runs in 16K, 32K, or 64K 

■ Menu-driven disk and 
cassette I/O 

■ No hardware modifications 
required 



THE ORIGINAL 



Simply stated, Telewriter is the most powerful 
.vord processor you can buy for the TRS-80 
Color Computer. The original Telewriter has 
eceived rave reviews in every major Color 
Computer and TRS-80 magazine, as well as 
enthusiastic praise from thousands of satisfied 
Dwners. And rightly so. 
rhe standard Color Computer display of 32 
:haracters by 16 lines without lower case is 
>imply inadequate for serious word processing, 
rhe checkerboard letters and tiny lines give you 
no feel for how your writing looks or reads. 
Telewriter gives the Color Computer a 51 
column by 24 line screen display with true 
lower case characters. So a Telewriter screen 
looks like a printed page, with a good chunk of 
text on screen at one time. In fact, more on 
screen text than you'd get with Apple II, Atari, 
TI, Vic or TRS-80 Model III. 
On top of that, the sophisticated Telewriter 
full-screen editor is so simple to use, it makes 
writing fun. With single-letter mnemonic 
commands, and menu-driven I/O and 
formatting, Telewriter surpasses all others for 
user friendliness and pure power. 
Telewriter's chain printing feature means that 
the size of your text is never limited by the 
amount of memory you have, and Telewriter's 
advanced cassette handler gives you a powerful 
word processor without the major additional 
cost of a disk. 




...one of the best programs for the Color 
Computer I have seen... 

— Color Computer News, Jan. 1982 



TELEWRITER-64 



But now we've added more power to 
Telewriter. Not just bells and whistles, but 
major features that give you total control over 
your writing. We call this new supercharged 
version Telewriter-64. For two reasons. 



64K COMPATIBLE 



Telewriter-64 runs fully in any Color Computer 
— 16K, 32K, or 64K, with or without Extended 
Basic, with disk or cassette or both. It 
automatically configures itself to take optimum 
advantage of all available memory. That means 
that when you upgrade your memory, the 
Telewriter-64 text buffer grows accordingly. In 
a 64K cassette based system, for example, you 
get about 40K of memory to store text. So you 
don't need disk or FLEX to put all your 64K 
to work immediately. 



64 COLUMNS (AND 85!) 



Besides the original 51 column screen, 
Telewriter-64 now gives you 2 additional high- 
density displays: 64 x 24 and 85 x 24!! Both 
high density modes provide all the standard 
Telewriter editing capabilities, and you can 
switch instantly to any of the 3 formats with a 
single control key command. 
The 51 x 24 display is clear and crisp on the 
screen. The two high density modes are more 
crowded and less easily readable, but they are 
perfect for showing you the exact layout of 
your printed page, all on the screen at one 
time. Compare this with cumbersome 
"windows" that show you only fragments at a 
time and don't even allow editing. 



RIGHT JUSTIFICATION & 
HYPHENATION 



One outstanding advantage of the full-width 
screen display is that you can now set the 
screen width to match the width of your 
printed page, so that "what you see is what 
you get." This makes exact alignment of 
columns possible and it makes hyphenation 
simple. 

Since short lines are the reason for the large 
spaces often found in standard right justified 
text, and since hyphenation is the most 
effective way to eliminate short lines, 
Telewriter-64 can now promise you some of the 
best looking right justification you can get on 
the Color Computer. 



FEATURES & SPECIFICATIONS: 



Printing and formatting: Drives any printer 
(LPVII/VIII, DM P- 100/ 200, Epson, Okidata, 
Centronics, NEC, C. Itoh, Smith-Corona, 
Terminet, etc). 

Embedded control codes give full dynamic access to 
intelligent printer features like: underlining, 
subscript, superscript, variable font and type size, dot- 
graphics, etc. 

Dynamic (embedded) format controls for: top, 
bottom, and left margins; line length, lines per page, 
line spacing, new page, change page numbering, 
conditional new page, enable/disable justification. 
Menu-driven control of these parameters, as well as: 
pause at page bottom, page numbering, baud rate (so 
you can run your printer at top speed), and Epson 
font. "Typewriter" feature sends typed lines directly 
to your printer, and Direct mode sends control codes 
right from the keyboard. Special Epson driver 
simplifies use with MX-80. 

Supports single and multi-line headers and automatic 
centering. Print or save all or any section of the text 
buffer. Chain print any number of files from cassette 
or disk. 



File and I/O Features: ASCII format files — 
create and edit BASIC, Assembly, Pascal, and C 
programs, Smart Terminal files (for uploading or 
downloading), even text files from other word 
processors. Compatible with spelling checkers (like 
Spell 'n Fix). 

Cassette verify command for sure saves. Cassette auto- 
retry means you type a load command only once no 
matter where you are in the tape. 
Read in, save, partial save, and append files with disk 
and/or cassette. For disk: print directory with free 
space to screen or printer, kill and rename files, set 
default drive. Easily customized to the number of 
drives in the system. 

Editing features: Fast, full-screen editor with 
wordwrap, block copy, block move, block delete, line 
delete, global search and replace (or delete), wild card 
search, fast auto-repeat cursor, fast scrolling, cursor 
up, down, right, left, begin line, end line, top of text, 
bottom of text; page forward, page backward, align 
text, tabs, choice of buff or green background, 
complete error protection, line counter, word counter, 
space left, current file name, default drive in effect, 
set line length on screen. 

Insert or delete text anywhere on the screen without 
changing "modes." This fast "free-form" editor 
provides maximum ease of use. Everything you do 
appears immediately on the screen in front of you. 
Commands require only a single key or a single key 
plus CLEAR. 




...truly a state of the art word processor... 
outstanding in every respect. 

— The RAINBOW, Jan. 1982 



PROFESSIONAL 
WORD PROCESSING 



You can no longer afford to be without the 
power and efficiency word processing brings to 
everything you write. The TRS-80 Color 
Computer is the lowest priced micro with the 
capability for serious word processing. And 
only Telewriter-64 fully unleashes that 
capability. 

Telewriter-64 costs $49.95 on cassette, $59.95 
on disk, and comes complete with over 70 
pages of well-written documentation. (The step- 
by-step tutorial will have your writing with 
Telewriter-64 in a matter of minutes.) 
To order, send check or money order to: 

Cognitec 
704 N. Nob St. 
Del Mar, CA 92014 

Or check your local software store. If you have 
questions, or would like to order by Visa or 
Mastercard, call us at (619) 755-1258 
(weekdays, 8AM-4PM PST). Add $2.00 for 
shipping & handling. CA residents add 6<7o 
state tax. 

Now available at 

Radio /hack stores 

via express order. 

Apple II is a trademark of Apple Computer, Inc.; Atari is a 
trademark of Atari, Inc.; TRS-80 is a trademark of Tand> 
Corp; MX-80 is a trademark of tpson America. Inc. 



Hot for 
Trivia Fever 

by Mark E. Reynolds 
HOT CoCo staff 
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OVERALL RATING 4.75 



Games 



Trivia Fever is manufactured by Professional 
Software Inc. for Tandy Corp. (catalog no. 26- 
3295), 1400 One Tandy Center, Fort Worth, TX 
76102. The game requires 64K and a disk 
drive. It sells for $29.95 



What do tree trunks and fish scales 
have in common? Who played the 
piano-playing Sam in Casablanca? Where 
did Davy Crockett make his last stand? 

These are some of the 32,000 questions 
that come with Professional Software's 
Trivia Fever, an entertaining outlet for any- 
one caught up in the wave of trivia gaming 
that has swept the country recently. 

From the top down, Trivia Fever is a nice 
product. Everything about it shows that its 
designers paid attention to quality: The 
sturdy and attractive box contains the game 
disk, startup instructions on heavy paper (in- 
cluding troubleshooting tips), a handsome 
book of questions and answers, a pad of tally 
sheets, a game spinner, and three color- 
coded bookmarks. 

One of the best aspects of the game is that 
you can play it with or without a computer. 
To play the computer version, all you need is 
the game disk and your CoCo. The book, 



tally sheet, spinner, and bookmarks let you 
play without electricity. And yes, both ver- 
sions require a sharp memory. 

Program quality is also excellent. The first 
thing you'll notice is that Trivia Fever doesn't 
load like most programs you're used to be- 
cause it is written in OS-9 compiled Basic and 
requires an OS-9 loading routine. Professional 
Software ported the game to the Color Com- 
puter under license from Tandy, which 
wanted OS-9 included for upward compati- 
bility with future versions of the Color 
Computer. 

If you have Disk Extended Color Basic ver- 
sion 1 .0 and don't have OS-9, you must type 
in an 18-line program (provided with the 
startup guidelines) to create a Trivia Fever 
boot disk to load the game. If you have Disk 
Extended Color Basic 1 . 1 or later, you simply 
type DOS and press the enter key. 

Playing instructions are on the disk. After 
you read them, you type in the game mas- 
ter's (or moderator's) name and the names of 
the players or teams. Trivia Fever can be 
played by one to eight players. There are 
three ways to handicap individual players or 
teams, making it possible for players of vary- 
ing abilities to compete with each other. Bet- 
ter players can select shorter time limits in 

4 'Everything about 
Trivia Fever 
shows that 
its designers 
paid attention 
to quality." 

which to answer questions, choose a higher 
level from the three levels of difficulty, and 
pick those categories (from the seven the 
game offers) that they find more difficult. 

Once you have set up Trivia Fever the way 
you want it, you remove the disk from your 
disk drive, flip it over, and reinsert it to load 
the questions. Game instructions and ques- 
tions appear on screen in attractive upper- 



and lowercase letters. The game master, who 
may also be one of the players, controls the 
keyboard and answers prompts for informa- 
tion. Upon receiving an answer from a 
player, the game master presses keys to stop 
the clock, display the correct answer, and tell 
the computer whether or not the correct an- 
swer was given. Play moves along quickly 
and smoothly. 

The program keeps score, gently chiding 
players for wrong answers and rewarding 
those who answer correctly with encourag- 
ing words. Successful players might also 
elicit a few bars of such tunes as "I'm Look- 
ing Over a Four-Leaf Clover," the "William 
Tell Overture," and "Whistle While You 
Work." 

Error trapping is excellent. Trivia Fever 
will only accept keyboard input that reason- 
ably answers program prompts. That means 
that even younger members of the family can 
safely have a turn at being game master. 
Trivia Fever is very easy to use and play. The 
few paragraphs of documentation that come 
with the package are all you need to get 
going. And if you exhaust the 32,000-ques- 
tion data file, you can order Volume II, an 
additional set of questions, from Professional 
Software Inc., Box 533, Needham, MA 
02194. Or phone their toll-free number, 1- 
800-343-4074. Sports buffs can order Super 
Sports, a separate game that offers thou- 
sands of sports-related questions in seven 
categories. 

And don't forget that you can also play 
Trivia Fever without a computer. It is one 
CoCo game that can amuse everyone on long 
car trips. Even the person behind the wheel 
can play as long as someone else is asking 
the questions. 

If you enjoy the mental exercise and 
friendly interaction that are a part of trivia 
gaming, you'll appreciate Trivia Fever. Even 
if you are not much for trivia, you'll have to 
admire the high quality of this product's pro- 
gramming and packaging, which makes it 
compare favorably with many other Color 
Computer programs. 

So, are you ready to play Trivia Fever? I'm 
still trying to remember who played Sam in 
Casablanca. ■ 
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Spelling is a series of 16 programs, con- 
tained on eight program cassettes, that covers 
the rules of spelling for grades 4 through 6. The 
series is available from Dorsett Educational 
Systems, P.O. Box 1226, Norman, OK 73070, 
800-654-3871, 405-288-2301 in OK. The pack- 
age requires 16K and sells for $59.95. 



Before completing my evaluation of this 
package, I told my son: "I'd like you to 
help me test some educational software 
called Spelling." 

"No, thank you," the 9-year-old replied 
evenly. "I'd planned to go swimming in a 
volcano." 
"Aw, come on!" 

"Don't you get it, Dad? No! N-O!" 



Later, when the boy was tightly bound to 
a chair in front of the computer, I loaded 
Talk/Tutor, a monitor program that activates 
each of the 16 lessons in this eight-tape col- 
lection. "Let's try some homonyms" I said as 
I slipped in the lesson cassette. 

He threw his forearms over his eyes like 
Dracula reacting to sunlight and screamed, 
"Child abuse! Mom! Help!" 

"Glad to see you're getting in the spirit of 
things," I told him between gritted teeth. 

Particulars 

We were already familiar with Dorsett's 
style of learning programs. A taped narration 
matches the screen text, and there are small, 
well-drawn illustrations. As the narrator 
noted the similarity and differences between 
the words way and weigh, my sullen young 
learner began to perk up. "Puns," he said. 
"It's talking about puns!" And just like that, 
the lesson was a success. Homonyms are the 
stuff of word play. This kind of material pre- 
sents a lode of pun possibilities. Or is that 
load? I had better go back and study. 

Spelling varies its requirements of the user. 
Sometimes it is looking for the number of a mul- 
tiple-choice question. At other times it asks you 
to type out a word that is correct for the context. 
For example, "Our football players 



more than theirs (way or weigh)." Then, taking 
its cue from the letters eigh in weigh, the pro- 
gram segues to a question about eight and ate. 

We got all the way through the Homo- 
nyms: A Sounds lesson. My son agreed to try 
another tape, but became disinterested when 
the narrator strove to breathe life into the 
rules that determine the situations in which 
the letter I comes before E. 

I liked these programs more than did my 
son (whom I awoke, untied, and permitted to 
depart). But the fact that he was not very 
keen on them is indicative of the potential of 
this set in a classroom environment; it pre- 
sents complete information in an easy-to- 
learn— if not captivating— form. When kids 
have trouble adding suffixes correctly, for ex- 
ample, they can get help from one of two suf- 
fix lessons. Moreover, students expect to 
work rather than be entertained at school, 
where they will adapt quickly to this series. 
At home, an educational program must be 
more entertaining in order to maintain inter- 
est. Chances are, most parents will encoun- 
ter the same reaction I did. 

This isn't criticism. In fact, I've grown 
weary of software that is intriguing at the ex- 
pense of educational value. To paraphrase an 
adage, you can't be all things to all students. 
Sometimes the best way for a student to 
learn is to buckle down and study the hard 



way. However, the Spelling lessons are not 
all cod-liver oil, either. By combining text, 
narration, pictures, and user choices, they of- 
fer a diversity that helps to make the infor- 
mation they present more palatable to 
youngsters. 

Dorsett offers numerous educational pack- 
ages, which cost $59.95 for the 16 half-hour 
lessons they each contain. This price is more 
than reasonable. The Spelling series com- 
prises the following lessons: Plurals of 
Nouns; Plurals of 0 and Y Nouns; Irregular 
Plurals; Changing Y to I Suffixes; Dropping 
the Silent E; The I Before E Rule; Doubling 
Consonants, Short Vowels; Doubling Conso- 
nants Before Suffixes; Adding Suffixes; 
Apostrophes; Homonyms: Contractions; 
Homonyms: A Sounds; Homonyms: E 
Sounds; Homonyms: I, 0, U Sounds; Hom- 
onyms: Consonants; and Spelling Demons. 
The last lesson offers mnemonic tricks for re- 
membering irregular spellings, such as sec- 
retary and calendar. 

If you think that these programs will cause 
a string of comic-book Z's to rise above your 
head, then wake up and think again. Dorsett 
has put together an educational package that 
presents a well-conceived approach to rid- 
ding kids of confusion about spelling rules. It 
might even clear up a few things for some 
adults, two.M 



IT'S LIKE 



FREE DISKETTES 



a 



Your 5V4 M single side disks are usable on the 
other side. You paid for one side, why not use 
the other... IT'S FREE! 

Nibble Notch will open your new disk. It's 
easy . . . won't harm existing data. Try it, you'll 
be glad you did! 

:f nibble notch II 

hole!' For TRS 80 I, III, and IV, Osborne, 
Tl, Kaypro, IBM and others needing 



Call tor 

HIGH QVJAL*7 

"diskettes 

as low as 



99< 



'index hole!' 



ONLY 



$2]90 



PLUS 
P&H 



*Add $2 
($5 foreign) for 
postages handling 

FL residents 
add 5% sales tax. 

ORDER 
TODAY 
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SATISFACTION GUARANTEED 
OR YOUR MONEY BACK! 
TOLL FREE 1-800-642-2536 

FL (305)748-3770, 9am-6pm ET 

or send check 
or money order to: 




computer products 
4211 NW 75th Terrace • Dept 1 5 3 • Lauderhill, FL 33319 



SPECTRAL ASSOCIATES 

TALKING GAMES 





$24.95 for tape 

SYZYGY (siz-ih-gee) 

The Ultimate Graphics Adventure! You 
are trapped aboard the Deathstar 
starship and have had a near fatal en- 
counter with the Dark Lord, Darth 
Vader. Your strength is all but gone 
and you know that Vader is some- 
where near. Your only hope is to lo- 
cate the mysterious Glowing Emerald, 
hidden deep within the Deathstar, 
guarded by the Dark Lord himself. 
Syzygy has over 250 graphic pictures 
and 300 locations with an assortment 
of treasures, weapons and hazards. 
These allow a virtually endless array of 
different scenarios and complex situa- 
tions designed to give the user hour 
upon hour of entertainment and ad- 
venture. Grab your light saber and 
may the Force be with you! 32K re- 
quired. 



$27.95 for disk 

SPACE TREK 

Realistic, hi-res 3-D graphics put you in 
the captain's seat of the Federation's 
most powerful starship. Work your Way 
from sector to sector by fighting the 
deadly aliens which are trying to de- 
stroy you. A long range scanner, front 
view screen, phasors, photon torpe- 
dos, mines, shields, star bases and 3-D 
asteroids are only a few of the many 
features which make Space Trek the 
most realistic space battle simulation 
ever developed. Space Trek will talk 
when you have a Tandy Speech/ 
Sound cartridge, Colorware's Real 
Talker or Spectrum Projects' Voice Pak 
installed. Just plug one in before load- 
ing the program and fasten your seat- 
belt for the ultimate in simulations for 
the Radio Shack Color Computer. 32K 
and joysticks required. 



CALL 1 -206-58 1 -6938 to place your Visa or MasterCard order today! 
SEND your order with check or money order (sorry, no C.O.D.) to: 

SPECTRAL ASSOCIATES 
34 1 8 South 90th Street 
Tacoma, Washington 98409 

All orders shipped in two business days. Allow two weeks for delivery. 
Shipping & Handling: circle Reader Service card #299 

United States add 3°/o; $2 minimum. Canada add 6°/o; $3 minimum. Foreign 
add 1 5%; $5 minimum. Washington State residents add 7.8% sales tax 
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An Introduction to 
Personal Finance 

by Stuart Hawkinson 

meets maintains documentation 
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Educational Software 



Personal Finance is a series of 16 educa- 
tional programs on eight cassettes for adults of 
all ages. It is available from Dorsett Educa- 
tional Systems Inc., P.O. Box 1226, Norman, 
OK 73070, 800-654-3871, 405-288-2301 in OK. 
It requires 16K and comes on cassette. Per- 
sonal Finance sells for $59.90 



Personal Finance is an audio home-fi- 
nance tutorial that takes advantage of 
the Color Computer's capable hardware. The 

mimm«M M m i l i i in i mmmmmmmmmmmmmmmm. 



series provides basic information and quizzes 
on the subjects of home budgeting, taxes, 
loans, investments, and insurance. The pre- 
sentation combines text, graphics, and audio 
material smoothly, using a mix of questions 
in multiple-choice and one-word-response 
formats. 

Personal Finance covers a wide range of per- 
sonal-finance topics. The subjects are pre- 
sented at about the high-school level and 
could supplement a personal-finance course. 
Lessons on planning a personal budget are fol- 
lowed by an elementary discussion of basic 
economic theory. One lesson covers income- 
tax preparation and planning. Borrowing, 
credit, loans, and real-estate mortgages make 
up four lessons. Plans for life, property, and 
health insurance are each addressed by their 
own lessons. The final section of the package 
contains five lessons on saving money and in- 
vestments, including stocks and bonds, secu- 
rities trading, and various investment funds. 

The lessons are uniformly presented at the 
introductory level. You will not get extensive 
help for preparing income-tax forms or learn- 
ing about the latest investment fads and shel- 
ters. However, you will get a comprehensive 
review of the fundamentals. 

You start a session by loading and execut- 
ing a machine-language driver. The program 
will not run while there is a ROM pack or disk 
controller in the expansion port. Loading and 



startup take less than a minute. Thereafter, 
the program controls the cassette player- 
loading text and graphics, and feeding the au- 
dio to your monitor speaker. The two lessons 
on each cassette are on opposite sides. Nor- 
mal playing time is 20 to 30 minutes, de- 
pending on your responses. The driver 
program is virtually "bullet proof" and 
needs to be loaded only once for a day's use. 
Pressing the break key will get a response to 
load a new tape, but you can also continue 
with the current lesson. 

The drill questions, of which there are about 
20 for each. topic, reinforce the lesson mate- 
rial. The narration on the tape is perfectly syn- 
chronized to text and graphics, including 
frequent "right" and "yes" responses to cor- 
rect answers. Like many tutorial programs, 
you must answer correctly to proceed. A 
wrong answer elicits an error tone and a 
screen containing the expected response. The 
multiple-choice questions are often easy, 
while the one-word-response answers are 
sometimes difficult to guess. The program 
has no tolerance for misspellings or errors in 
capitalization. 

The driver program keeps a record of your 
right and wrong answers, presenting your 
score at the end of each lesson. Students can 
try to improve their scores by replaying a les- 
son cassette at a later time. This might mo- 
tivate younger students, but teens and 
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^ COLOR CHARACTER GENERATOR 

RAINBOW RAINBOW 

«-™ A NEW DIMENSION IN COLOR COMPUTING ""™ 



•Now includes a character generator and sample graphic space 
game at no extra cost. 

•Full 224 text and graphic characters. Underline in all PMODES. 
Prints vertically. 

•All machine language» user transparent. Supports all BASICi 
EXTENDED BASIC and DISK commands. 

•Automatic loader recognizes lbr » 32H St 64K computers. 

• Mix up to 5 character sires in 4 colors all on one screen. A 
total of 10 sizes available from 8*4 to 42*24 or 32*32 in 
vertical mode. 

• Use up to 4 defineable window screens of any size. Also 
includes horizontally scrolling (crawling) one line screens. 

•Includes positive & negative screen dumps in 2 sizes for R/S t 
Epson & Gemini printers. ( Please specify) 

• Special Trace Delay can be used to debug programs one line at 
a time ( even graphics ). 

• A special printer control can output characters to the screen 
& printer simultaneously. 

•A must for all color computer owners. Once you try it you 
won't write another program without it. 



INCENTIVE SOFTWARE 
(519) 681-0133 



P.O. BOX 323 
STATION B 
LONDON ONTARIO 
CANADA N6A **W1 

MINIMUM REQUIREMENT 
TAPE - 2^.95 US or 
DISK - 27.95 US or 



P.O. BOX 7281 
PORT HURON 
MICHIGAN 48301 
U.S.A. 

16K BASIC 
29.95 CDN 
32.95 CDN 



Tape to Disk upgrade available for *8US or $10CDN. We pay 
postage within US & CANADA on orders over $20, otherwise 
please add SI. Other countries please add $2. Charge orders 
please add *1 . 
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adults are not likely to go through the ques- 
tions repeatedly. 

As topics are presented, graphics illustra- 
tions and clever positioning of text keep the 
material interesting. The narration is well- 
organized and clearly delivered. I did not en- 
counter speaking errors or poor usage. The 



graphics are good and the lettering is easy to 
read, but there is little variation in the colors 
used. Most screens are completely green, al- 
though there are also a few dark blue ones. 

The Personal Finance package is profes- 
sionally produced and worth serious consid- 
eration by teachers. Its beginner's level of 



presentation precludes the possibility of find- 
ing market tips or get-rich-quick schemes; 
that is not the aim of the series. Young adults 
will gain a good foundation in the basics of 
personal-money management through this 
series. Its 16 lessons offer a very complete 
introduction. ■ 



Checking on 
ChesSD 

by Terry Kepner 



sound 



documentation 



graphics 


playability 












































N/A 






OVERALL RATING 4.75 



Games 



ChesSD was created by Software Dynamics 
and is distributed by Computer Systems Dis- 
tributors, P.O. Box 9769, Anaheim, CA 92802, 
714-772-1390. It requires 64K, Extended Color 
Basic, and a disk drive. It sells for $49.95 plus 
$2 for shipping. 



If you have been waiting for a superior 
chess program, wait no longer. ChesSD is 
a disk-based program that stores almost 
35,000 opening moves. 

Starting the program is simple. You just 
put the ChesSD disk into drive 0 and press 
the Color Computer's reset button. While the 
game loads, a procedure that takes about 10 
seconds, a checksum is calculated. A check- 
sum failure indicates either a worn disk or 



possibly a drive-alignment problem. In the 
first case, just make a new backup of your 
master disk. (ChesSD is not copy-protected.) 
If you have the second problem, adjust your 
drive and try again. 

Once loaded, ChesSD displays a high-res- 
olution image of a chess board with all the 
pieces in place. While this isn't the most im- 
pressive chess display I've seen, it is more 
than adequate for its purpose— clear display 
of the individual chess pieces. Below the 
chess board is a comment line where the pro- 
gram provides messages relating to the state 
of the game, such as "thinking. . . ," "book 
move," or "Check!" 

To the right of the game board is a move 
table that indicates several game statistics. 
They include the last move made, its se- 
quence number in moves since the start of 
the game, and the score from the computer's 
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Professional 
handicapping systems 



• PRESENTED BY PROFESSOR JONES • 



GLD. Thoroughbred "Gold" Edition™ 

A Full' featured thoroughbred analysis designed for the professional and 
the serious novice $159.95 complete 

EGLD. Enhanced "Gold" Edition™ 

"Gold" Edition with complete Master Bettor™ system integrated onto the same 
disk This powerful program will transfer all horses and scores to the bet analysis 
with a "single keystroke." (Master Bettor™ included) $199.95 complete 

GLTD. Limited "Gold"™ 

Enables Professional Handicappers to assign specific values to the racing var- 
iables they" feel are important Create program weight based on a particular 
track and fine tune it for maximum win percentage This program is designed 
for ease of use" The user needs no programming experience. 

(contains Integrated Bettor™) $299.95 complete 

GD. Gold Dog Analysis™ 

The "ONLY" professional greyhound analysis available that evaluates ALL 
variables $149.95 w/integrated Bettor $199.95 

Limited Version $299.95 



MHH. Master Harness 
Handicapper™ 

Professional software designed to provide a thorough analysis of all trotter and 
pacer races in North America and Canada $159.95 complete 

$199.95 w/lntegrated Bettor Limited $299.95 

Professor Pix Football™ 

Complete STATISTICAL ANALYSIS on Data Base allowing Designated previous 
games to be evaluated Statistical Series $99.95 

w/Win-Loss Power Ratings $149.95 



IBM™ 
APPLE™ 
TRS-80™ 
CPM™ 
COMMODORE™ 



Prof. Jones 

1940 W. State St. 
Boise, ID 83702 

mm 

VISA 



48 HR. FREE 
SHIPPING 



NBA. BasketbaU" 



NBA $99.95 w/coiiege $129.95 

w/power ratings $149.95 

LOT. Lottery Analysis™ 

Statistical comparison program designed to detect subtle patterns in winning 
numbers and digits Lottery (3-4 digit) $79.95 

w/Lotto (Max 99 Digit) $99.95 

PC-3 Portable Computer (4k) with choice of Thoroughbred. Grey 
hound or Trotter™ $249.95 (Includes portable computer and program ) 

M-100 Portable (24k) w/choice of Thoroughbred. Greyhound, or Trotter 
$649.95 (Includes portable computer and program ) 



BROCHURE AVAILABLE 



CALL 
208-342-6939 



TERMS FREE SHIPPING ALL 
SOFTWARE Add S6 00 hard 
ware/ $6.00 C.O.D / UPS Blue 
$6 00 / Out of Country S9 00 / 
ID Residents 4% / 3 weeks per- 
sonal checks / Cash price only, 
add 2°o Visa. MC / Prices sub 
ject to change 



The complete disassembly 
of the Color Basic ROMs 




EASY TO UNDERSTAND • COVERS ALL ROM VERSIONS 
COMPLETE MEMORY MAP--No missing spaces, everything 
is defined • PROGRAMMING TRICKS EXPLAINED 



old 

19.95 
19.95 
19.95 
49.95 



SPECIAL 
NOW 

$14.95/ea. 

I ... $34.95 



ALL FCBs, FDBs and FCCs defined 
FULLY COMMENTED-No holes 

COLOR BASIC UNRAVELLED 
EXTENDED BASIC UNRAVELLED 
DISK BASIC UNRAVELLED 
SET OF 3 UNRAVELLED BOOKS 

All of the innermost operating processes are exposed. 
This book is an indispensable tool for the programmer 
seeking a full, in-depth knowledge of Basic. The Basic 
UNRAVELLED SERIES will make it easy for you to write 
your own Basic commands or modify Basic for whatever 
purpose you desire. Cirde Reader Service card #29 g 

SPECTRAL ASSOCIATES 1-206-581-6938 
3418 South 90th Street Tacoma, WA 98409 

Shipping and Handling: United States add 3%. $2.00 minimum; Canada add 
6%. $3.00 minimum; Foreign add 15%, $5.00 minimum. No. CO D. orders. 
Washington residents add 7.8% sales tax. 
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—Reviews 



point of view. The latter is based on a point 
scheme for pieces taken: pawns equal 100, 
knights and bishops equal 300, rooks equal 
500, queens equal 900, and kings equal 
20,000. A positive score indicates that the 
computer is winning; a negative score means 
that you are winning. Other statistics on the 
move table are an estimate by the program 
of how its next move will affect the score, the 
clock times for the two players, and a set of 
two numbers for the skill level the computer 
is set to play. The first of these is the level 
you set as the maximum number of moves it 
can "look ahead"; the second is the number 
of moves ahead it looked in considering its 
current move. 

ChesSD is played using standard chess al- 
gebraic conventions. The rows are num- 
bered from one to eight and the columns are 
labeled from A to H. ChesSD supports all the 
standard moves in chess, including castling, 
en-passant pawn capture, and pawn promo- 
tion to queen, rook, bishop, or knight. An un- 
usual feature of the game is that it doesn't 
examine your king for check moves. If you 
accidentally move your king into check, 
ChesSD simply takes your king. According 
to the manual, this was done to make the 
program run faster. 

There are six commands available to the 
ChesSD player. Newgame starts a new game. 



The skill option specifies the number of moves 
ahead the computer may look when searching 
for its next move (to a maximum of seven). 
Choosing tournament sets the program for 
timed tournament play. Selecting play in- 
structs the computer to trade places with you 
and play your color. You use this command to 
tell the computer to play the white pieces in- 
stead of its default setting to black pieces. En- 
termoves sets the board to a predetermined 
arrangement, which is preset by manually en- 
tering the sequence of moves needed to play to 
that position. Although this is a time-consum- 
ing process, it is the only way to ensure that the 
board setup is correct. The last command is 
clearboard. You use it to clear the board of all 
pieces and assign positions to pieces for end- 
game or special chess problems. 

Although it is a powerful chess program, 
ChesSD does have a few problems. There is 
no way to obtain a written record of the var- 
ious moves played in a game. If you want a 
record you must write it down as you play. 
You also cannot save a game that is in pro- 
gress. If you must leave an interesting game 
before completing it, you are out of luck un- 
less you wrote down all moves as you played. 
But the largest shortcoming of ChesSD is 
that you cannot reverse a move. If, for ex- 
ample, you accidentally move into check and 
ChesSD takes your king, you cannot back up 



and replay the move. This last inconvenience 
will be especially apparent when experiment- 
ing with chess problems or exploring different 
strategies. 

ChesSD's flexibility in letting you select 
the number of moves ahead it may look be- 
fore moving a piece lets you tailor the game 
to your time and ability. The time required 
for the computer to calculate each move is 
fairly short, only about three seconds or less 
in the lower levels (one, two, and three). 
Moves in levels four, five, and six take the 
computer 30 seconds, three minutes, and 30 
minutes, respectively. The seventh level is 
strictly for chess-by-mail fanatics. It requires 
five hours for each computer move. Tourna- 
ment play usually takes place at level five. 

All in all, ChesSD plays a mean game of 
chess— even at the lower levels— because of 
its extensive disk-based opening book. If you 
make the mistake of accidentally tapping 
into a sequence of moves in this book of 
plays, the computer's moves come quickly 
and are devastating. Although the game is 
not rated, it seems to have a playing strength 
of about 1,500. ChesSD is not a tutorial. It 
assumes that you are familiar with the move- 
ments of chess pieces and the rules of the 
game. If you are more than a chess beginner, 
ChesSD will give you a good run for your 
money. ■ 



WHITE HOUSE 
COMPUTER 

VISA and MC 

P.O. BOX 4025 Circle Reader Service card #175 A ccep t e d 4% 

Williamsport, PA 17701 



1-800-351-3442 

HOURS- Mnndav-Fridav (^1 7) 322-7700 



HOURS: Monday-Friday 
9:00 am-6:00 pm 



PRINTERS 



MANNESEMAN 

Spirit 80 

MT 160L 

MT 180L 



CITIZEN 



MSP 10 . 
MSP 1 5 . 
MSP 20 . 
MSP 25 



TALLY 

. 249.00 
.495.00 
. 595.00 

305.00 
.450.00 
. 450.00 

575.00 



EPSON 

RX 80 

RX 100 

JX 80 

FX 85 

FX 185 

LQ 1500 PAR 

LO 1500 SER 

LX 80 

Homewriter 

Comrex 220 Atari 
Comrex222Comm 

LX 90 

SQ 2000 

DX 10Daisywheel 
DX20Daisywheel. 
HS 80 Letterjet. . 



209.00 

369.00 
.479.00 
. 345.00 
. 499.00 
. 979.00 
1039.00 
. 222.00 

209.00 
. 199.00 
199.00 
. 245.00 
1525.00 

235.00 
. 319.00 
. 359.00 



STAR MICRONICS 

SG 10 214.00 

SG 15 379.00 

SD 10 345 00 

SD 15 450.00 

SR 10 485.00 

Powertype 307 00 

LEGEND 

1380 269.00 

1385 305.00 

1080 Square Dot . 229.00 
880 Square Dot 199 00 

OK I DATA 

Okimate 10 1 79 95 

182 219.95 

84 640 95 

192 349.95 

193 525 95 

PANASONIC 

1090 187 00 

1091 237.00 

1092 385 00 

1093 425 00 

3151 455.00 



POLICY No deposit on COD orders Free freight on all prepaid cash 
orders over S300 in the continental USA APO & FPO add S5 00 per 
hundred. For priority mail add $8 00 per hundred PA residents add 6°o 
sales tax Defective products must have Prior RA number Schools net 15 



PRINTER PAPER 

2500SheetsLazor 24.95 
1000 Sheets Lazor . 14.95 
500 Sheets Lazor 9.95 
Mailing Labels 

1000 qty 9.95 

COLOR PAPER 

ASSORTED PASTELS 
2500SheetsLazor 42 95 
1000Sheets Lazor 23.95 
500 Sheets Lazor 23.95 



TEAC DISK DRIVE 

FD 55V 320K/Half Height 
DS/DD 149 00 

FD 55F 320K/Half Height 
96 T.P.I 1 69 00 

SoftwareforFD55V 39 95 



DISKETTES 

SKC Lifetime Warranty 

SS/DD 10 95 

DS/DD 14 95 

BONUS Lifetime Warranty 

SS/DD 9 50 

DS/DD 13.50 



MAXELL 



MD 1 
MD 2 



. 15.95 

. 20.95 



MODEMS 

Volksmodem/Cable 58 95 


INNOVATIVE 
CONCEPTS 


Volks 12 179.95 


Fhp-N-File 10 


2 50 


Hayes 300 149.95 


Fhp-N-File 15 


6 50 


Hayes 1 200 385.95 


Flip-N-File25/Lock 


12 50 


Compuserve Starter 


Flip-N-File 50 


1 2.50 


Kit 19 95 


Flip-N-File 50/Lock 


16 50 


MONITORS 




TEKNIKA 

MJ-1 0 Composite/ 

Separate Video 185 95 
MJ-22 RGB/Composite/ 


SAKATA 

SC 100 Color . . 
SG 1000 Green 
SA 1000 Amber 


179 00 
99.95 
105.95 


Separate Video 269.95 


NEC 






1205 


95 00 




1260 


139 95 


ZENITH 


1201 


139 95 


ZVM 122 Amber 82 95 






ZVM 123 Green 75.95 


AMDEK 




ZVM 131 RGB Color/ 


300 G 


1 19 00 


Green 40 Col 229.00 


300 A 


1 29 00 


ZVM 133 RGB Color/ 


Color 300 


229.00 


Green 80 Col . 389 00 


Color 500 


339.00 


ZVM 130 Color/ 


Color 600 


399 00 


Green 259 00 


Color 700 


.469.00 


ZVM 135 RGB Color 


Color 710 


539.00 


Green 80 Col 439.00 


310 A 


145.00 


INTERFACES 








.57.95 


1 Year Warranty 
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DIGISECTOR 

DS-69 
VIDEO 
DIGITIZER 
FOR THE 
COCO 





Give your COCO the gift of sight! 

The Micro Works is happy to introduce the newest 
member of our Digisector™ family — the DS-69 Video 
Digitizer for your COCO. It has all the standard 
features of its big brothers but comes with a price tag 
that's right for you. 

■ High Resolution 256 by 256 spatial resolution. 

■ Precision 64 levels of grey scale. 

■ SPEED! Vz second for a full screen of video. 

■ Compactness Self contained in a plug in Rompack. 

■ Ease of Use Software on disk will get you up and 

running fast! 

The DS-69 Digisector 
opens up a whole new 
world for you and your 
COCO. Your computer 
can be a security system, 
take portraits, analyze 
signatures, inspect 
assembly work . . . 
the DS-69 is your COCO'S 
eyes. Use the DS-69 and a TV camera to get fast, 
precise conversion of video signals into digital data. 

Powerful C-SEE™ software. 

C-See is a menu-driven software package included 
with your DS-69. It provides high speed 5 level digitiz- 
ing to the screen, high precision 16 level digitizing for 
superb hard copy printout, and simple software con- 
trol of brightness and contrast. Or call our driver rou- 
tines from your own Basic 
program for easy 64 level 
random access digitizing. 
Pictures taken by the 
DS-69 may be saved on 
disk by C-See and then 
edited by our optional 
MAGIGRAPH package for 
enhancements and 
special effects. 

The DS-69 comes with a one year warranty. C-See 
supports both cassette and disk operation with the 
Multi-Pak adaptor and requires 64K. Cameras and 
other accessories are available from The Micro 
Works. Let your COCO see the World! 

■ DS-69 Digisector & C-See Software $149.95 

■ MAGIGRAPH Graphics Package on disk $ 39.95 

Terms: Visa, Mastercard, Check or C.O.D. 

Purveyors of Fine Video Digitizers Since 1977. 




Established 1977 

P.O. Box 1110 Del Mar, CA 92014 
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(619) 942-2400 



Tell them "I saw it in HOT CoCo." 
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UTILITY 

by William S. Bonnell 



System Requirements 

32K RAM 
Disk Extended Color Basic 

One great feature of a disk-operating 
system is that it provides you with a 
disk's table of contents— the directory. Be- 
cause you can see at a glance what a disk 
contains, it's easier to keep tabs on your files. 
But Disk Extended Color Basic doesn't fully 
exploit the directory's potential; you still 
have to remember command formats to copy, 
kill, rename, or load a file. File Directory lets 
you initiate these functions with one key- 
stroke. It also sorts files alphabetically, 
dumps the sorted directory to a printer, lists 
an ASCII file on the screen, and protects 56 
files per disk. 

Program Operation 

The program reads the directory of a disk 
and displays it in screens of 10 files. Statis- 
tics are displayed and the files are presented 
in alphabetical order by a machine-language 
sort. The arrow keys control the cursor. The 
left arrow moves you to the previous screen; 
the right arrow moves you to the next one. 
The down arrow moves the cursor to the next 
file; the up arrow moves it to the previous file. 
Holding the arrow keys down makes them 
autorepeat. The cursor wraps between the 
first and last screens and between the first 
and last files in each screen. Figure 1 shows 
a sample session. 

Initiate operating-system commands by 
positioning the cursor next to the file and 
typing the appropriate letter: 

A— Re-sorts the directory. This is especially 
useful after you have renamed a file. 
B— Reads the directory again. Use this com- 
mand after inserting a different disk in the 
drive. 

C— Copies the file to another disk. 

D— Dumps the sorted directory to the printer. 



This program is available on our Instant CoCo cassette. 
See the Instant CoCo ad elsewhere in this issue. 



Directory 
Assistance 

Load, copy, and rename files from a disk directory. 



H— Displays the help screen. 

K— Kills the file. The program first asks for 

verification. 

L-Lists a file in ASCII format. 
P— Protects the disk by copying the file-allo- 
cation table and seven sectors of the direc- 
tory to granule 68, allowing you to protect 56 
files per disk. (The date is stored in the last 8 
bytes of granule 68.) This option also restores 
information from granule 68 to its proper lo- 
cation in track 17. A submenu asks you 
whether you wish to protect or restore. Be- 
fore restoration, the date of the last protec- 
tion is displayed and you must confirm your 
desire to continue. If granule 68 contains in- 
formation other than a previously saved di- 
rectory, the program asks if it should con- 
tinue with the protection function. 
Q— Quits the program. 
R— Renames the file. The program prompts 
you for a new name. If you press the enter 
key without typing a file name, the program 
ignores the rename command. 

BANDY . BRS ■ SCREEN 1 OF 
CflLENDflR. BRS 2 
CRLCEN .BIN FILE 1 OF 

CHRNGRDD. BRS 18 
DSK->TRP.BRS SPACE LEFT 

EUCHRE2 .BAS 34 GRANS 

FILES . BAS 
GREEK . BAS 
HRRD7FA0.BIN 
HARDCOPY. SRC 

< ss = s=s!» = s:s:««oP 1 1 OnS 03 " 85 " 521 " 3 '* > 

ABCDHKLPQRX ARROWS 

Fig. 1 . Sample Session 



X— Loads and executes a machine-language 
file or loads and runs a Basic file. Exercise 
caution with machine-language files. If they 
overlay the file-management program, they 
might not execute. End Basic programs with 
RUN'Tile Directory", instead of STOP or 
END, to return control to the file manager. In 
this way, you can create a menu-driven disk. 

Program Techniques 

It is worthwhile pointing out some of the 
techniques I used in File Directory. Line 30 
checks to see if the machine-language pro- 
gram has already been loaded. Lines 100- 
230 read the disk directory into an array 
called NA$( ). Line 280 creates a command 
string that is decoded in line 410 to branch 
control to the appropriate code. This is an 
excellent way to create a menu without ex- 
cessive use of IF statements. 

The FOR. . .NEXT loop in line 390 imple- 
ments autorepeat by putting &HFF into the 
keyboard rollover table. EXEC 44539 is an 
efficient way of halting program execution 
until a key is pressed. POKE &HFF40 in line 
730 stops the disk drive to allow the user to 
exchange disks. Line 980 shows how to run 
a program whose name is a variable. Notice 
the use of double quotation marks. ■ 

William S. Bonnell is an industrial engineer 
who specializes in simulation. Address corre- 
spondence to him at 239 Mason Ave., Roches- 
ter, NY 14626. Please enclose a stamped, self- 
addressed envelope for his reply. 



Program Listing. File Directory 

10 CLEAR 2000 

20 T$= n *********************** 
*FULL SCREEN DIRECTORY* 
* COPYRIGHT * 

*BILL BONNELL 11/08/84* 
*********************** 



30 CLSrIF PEEK(&HE02)=190 THEN 6 
0 

40 GOSUB 1470:PRINT@263, "DI RECTI 
ONS(Y/N) " ; 

50 A$=INKEY$:IF A$="Y" THEN 1530 

ELSE IF A$<>"N" THEN 50 
60 CLS:PRINT@164,T$:PRINT n 

reading directory" 
70 PRINT@164,T$ 
80 DIM NA$(60) 



90 ' 

100 'READING DIRECTORY 

110 TRACK = 17 

120 FOR S= 3 TO 11 

130 DSKI$F,17,S,A$,B$ 

140 A$=A$+LEFT$(B$,127) 

150 FOR P= 1 TO 255 STEP 32 

160 NAME$= MID$(A$,P,8) 

170 EXT$=MID$(A$,P+8,3) 

180 IF EXT$<>" "THEN EXT$="."+ 

EXT$ : NAME $=NAME$+ EXT $ 

190 IF LEFT$ ( NAME$ ,1)=CHR$(255) 

THEN 240 

200 IF LEFT$(NAME$,1)=CHR$(0) TH 
EN 220 

210 NA$ ( QQ ) =NA$ : QQ=QQ+1 
220 NEXTP 
230 NEXTS 

240 GOSUB 1380 'SORT DIRECTORY 
250 QQ=QQ-1 : GR=FREE ( 0 ) '#FILES 



260 NS=INT(QQ/10+1)-1 ' #SCREENS 
270 CS=0 'CURRENT SCREEN 
280 CM$=CHR$(8)+CHR$(9)+CHR$(10) 
+CHR$ ( 94 ) +" KRCHLAPQXBD" ' COMMAND 
STRING 

290 L=0:OL=0 ' LINE : OLDLINE 

300 A$=INKEY$:CLS:FOR I=CS*10+0 

TO CS*10+9 

310 PRINT NA$(I) 

320 NEXT 

330 PRINT @20, "SCREEN"CS+l"OF" ; 

340 PRINT @52,NS+1; 

350 PRINT@320, " <===========opt io 

ns = = = = = = = = = = = = > « . 

360 PRINT@352, "A BCDHKLPQ 

R X ARROWS" 
370 PRINT@148," SPACE LEFT" : PRINT 
@ 1 80, GR" GRANS" ; 
380 POKE &HFF40,0 

390 FOR KT=338 TO 345:POKE KT,25 
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5 : NEXT : A$=INKEY$ : PRINT @L*32+15, 
CHR$(143) ; : PRINT(§L*32 + 15 , CHR$ ( 12 
8);:PRINT @ 84 , n FILE" CS*10+L+1 "0 
F " ; :PRINT@116,QQ+1; :IF A$ = "" TH 
EN 390 

400 PRINT @L*32+15, A$ ; 

410 ON INSTR(1,CM$,A$)+1 GOTO 39 

0,430,440,470,520,580,650,730,77 

0,840,940,1030,1620,970,1630,164 

0 

420 GOTO390 

430 CLS:CS=CS-1:IF CS<0 THEN CS= 
NS:GOTO 290 ELSE GOTO 290'LEFT A 
RROW 

440 CLS:CS=CS+1:IF CS>NS THEN CS 
=0:GOTO 290 ELSE GOTO 290'RIGHT 
ARROW 
450 ' 

460 'DOWN ARROW 
470 L=L+1 

480 IF L>9 OR CS*10+L>QQ THEN L= 
0 

490 PRINT(aOL*32 + 15,CHR$(143) ; : OL 
=L:GOTO 390' DOWN ARROW 
500 ' 

510 'UP ARROW 
520 L=L-1 

530 IF L<0 THEN L=9 

540 IF CS*10+L>QQ THEN L=QQ-CS*1 

0 

550 PRINT@OL*32+15,CHR$(143) ; :0L 
=L:GOTO 390 
560 ' 

570 'KILL AND RESORT 

580 PRINT@448 , "KILL " NA$ ( CS*10+L 

)" (Y/N)? n ; 

590 A$=INKEY$ 

600 IF A$="Y" THEN KILL NA$(CS*1 
0+L) :NA$(CS*10+L)="" : GOTO 240 



610 IF A$= " N" THEN PRINT@448 , " " : 

GOTO390 

620 ' 

630 'RENAME 
640 GOTO 590 

650 PRINT@448 , " " ; : INPUT" NEW NAME 

OR ENTER" ;A$: IF A$="" THEN 300 
660 PS=INSTR(A$, " . " ) : IF PS=0 THE 
N PS=INSTR(A$, "/" ) 
670 IF PS=0 THEN 650 
680 A$=LEFT$(MID$(A$,1,PS-1)+" 

" ,8)+MID$(A$,PS) 
690 RENAME NA$(CS*10+L) TO A$:NA 
$(CS*10+L)=A$ 
700 GOTO 300 
710 ' 

720 'COPY FILE 

730 PRINT@448," COPYING ";NA$(CS 

*10+L) ; :COPY NA$(CS*10+L) :CLS:PO 

KE &HFF40,0:PRINT"INSERT SOURCE 

DISK... HIT ANY KEY" : EXEC44539 : GO 

TO 290 

740 GOTO290 

750 ' 

760 'HELP 

770 CLS 

780 PRINT" A AGAIN - RESORT THE 
DIRECTORY B BEGIN - REREAD THE 
DIRECTORY C COPY - COPY TO OT 
HER DISK D DUMP - PRINT SORT 
ED DIR. H help - DISPLAY TH 

IS SCREEN K KILL - DELETE FRO 
M DISK L LIST - LIST AN AS 

CII FILE" 

790 PRINT" P PROTECT- COPY DIR/F 
AT TO GR68 Q QUIT - END THE PR 
OGRAM R RENAME - RENAME FIL 

E X EXEC - RUN A PROG 

RAM " ARROW - PREVIOUS F 



ILE V ARROW - CURSOR TO 

NEXT FILE <-ARROW - SELECT PRE 
V. SCREEN" 

800 PRINT" ->ARROW - SELECT NEX 
T SCREEN"; 

810 PRINT(§480," HIT ANY KEY TO C 
ONTINUE" ; : EXEC 44539:GOTO 300 
820 ' 

830 'LIST AN ASCII FILE 
840 CLS 

850 OPEN "I",1,NA$(CS*10+L) 
860 SW=E0F(1) 

870 IF SW THEN CLOSE : PRINT : PRINT 
"HIT ENTER TO CONTINUE" : EXEC4453 
9: CLS: GOTO 300 

880 LINEINPUT #1,A$:PRINT A$ 
890 A$=INKEY$:IF A$="" THEN 860 
900 IF A$="Q" THEN SW=1:GOTO870 
910 EXEC44539:GOTO 860 
920 ' 

930 'RESORT DIRECTORY 
940 GOSUB 1380:GOTO 300 
950 ' 

960 ' RUN BASIC OR EXEC ML 

970 PRINT @448 , " EXECUTE "NA$(CS* 

10+L) ; 

980 IF RIGHT$(NA$(CS*10+L) ,3)="B 
AS" THEN RUN " " +NA$ ( CS*10+L ) 
990 IF RIGHT$(NA$(CS*10+L) ,3)="B 
IN" THEN LOADM""+NA$(CS*10+L) : EX 
EC: GOTO 300 

1000 PRINT" WRONG FILE TYPE... HIT 

A KEY" : EXEC 44539:GOTO 300 
1010 ' 

1020 'GET OR SAVE DIRECTORY 
1030 CLS 

1040 PRINT "PROTECTION MENU" 
1050 PRINT "1 SAVE DIRECTORY TO 
GRAN 68" Listing continued 



TRS-80+ MOD I, III, COCO, TI99/4a 
TIMEX 1000, OSBORNE, others 

GOLD PLUG - 80 

Eliminate disk reboots and data loss due to oxi- 
dized contacts at the card edge connectors. 
GOLD PLUG 80 solders to the board edge con- 
nector. Use your existing cables, (if gold plated) 



Gold 817498-4242 

iiiiiimiiMiuiii 



COCO Disk Module (2) 
Ground tab extensions 
Disk Drives (all R.S.) 
Gold Disk Cable 2 Drive 
Four Drive Cable 
USA shipping $1.45 

Foreign $7. Don't wait any longer 



$16.95 
INCL 

$7.95 
29.95 
39.95 



Can/Mex $4. 
TEXAS 5% TAX 



Available at your favorite dealer or order direct from 

E.A.P. CO. 

P.O. BOX 14 
KELLER, TEXAS 76248 

(817) 498-4242 Circle Reader Service card #216 MC/VISA 

+ trademark Tandy Corp 



DISKETTES AND COCO SOFTWARE 

5.25" DISKS EACH 10-PACK $12.50-SSDD/DSDD $20-DSQD 

American-made, guaranteed 1 00% quality, with Tyvek jackets, hub rings, and labels 

CMODEM TELECOMMUNICATIONS PROGRAM $100-FLEX,OS/9 
OBJECT-ONLY versions: EACH $50-FLEX,OS/9 

menu-driven with terminal mode, file transfer, MODEM7, XON-XOFF, etc. 
for COCO and non-COCO; drives internal COCO modem port up to 2400 Baud 

SUPER SLEUTH DISASSEMBLERS EACH $99-FLEX $101-OS/9 
OBJECT-ONLY versions: EACH $50-FLEX,OS/9,COCO 

interactively generate source on disk with labels, include xref , binary editing 

specify 6800,1,2,3,5,8,9/6502 version or Z80/8080.5 version 

OS/9 version also processes FLEX format object file under OS/9 

COCO DOS available in 6800,1,2,3,5,8,9/6502 version (not Z80/8080.5) only 

CROSS-ASSEMBLERS EACH $50-FLEX,OS/9 ANY 3 $100 ALL $200 

specify for 180x,6502,6801 ,6804, 6805,6809,Z8,Z80, 8048, 8051 ,8085,68000 
true, modular, free-standing cross-assemblers in C, with load/unload utilities 
8-bit (not 68000) sources included with all cross-assemblers (for $200) 

DEBUGGING SIMULATORS EACH $75-FLEX $100-OS/9 
OBJECT-ONLY versions: EACH $50-COCO FLEX.COCO OS/9 
specify for 6800/1, (14)6805, 6502, 6809 OS/9, Z80 FLEX 

ASSEMBLER CODE TRANSLATORS FOR 6502, 6800/1, 6809 
6502 to 6809 $75-FLEX $85-OS/9 

6800/1 to 6809 and 6809 to position-independence $50-FLEX $75-OS/9 

FULL-SCREEN FLEX TSC XBASIC PROGRAMS with cursor control 
DISPLAY GENERATOR/DOCUMENTOR $50 w/source, $25 without 
MAILING LIST SYSTEM $1 00 w/source, $50 without 

INVENTORY WITH MRP $1 00 w/source, $50 without 

TABULA RASA SPREADSHEET $1 00 w/source, $50 without 

DISK AND XBASIC UTILITY PROGRAM LIBRARY $50-FLEX 

edit disk sectors, sort directory, maintain master catalog, do disk sorts, etc. 

Computer Systems Consultants, Inc. 
1454 Latta Lane, Conyers, GA 30207 
Telephone 404-483-1717 or 4570 
Circle Reader Service card #223 
Most programs in source: give computer, OS, disk size. 
Contact us for full catalog, dealer, and services info. 
25% off multiple purchases of same program on one order. 
VISA and MASTER CARD accepted; US funds only, please. 
Add GA sales tax (if in GA) and 5% shipping. 

FLEX tm Technical Systems Consultants; OS/9 tm Microware; COCO tm Tandy. 
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1060 PRINT "2 GET DIRECTORY FROM 

GRAN 68 
1070 INPUT "ENTER 1 OR 2 " ; A 
1080 ON A GOTO 1110,1270 
1090 GOTO 1030 

1100 'SAVE DIRECTORY TO GR68 
1110 INPUT" ENTER DATE ( MM/DD/YY ) " 
;DA$ 

1120 DSKI$0,17,2, A$,B$ 

1130 IF MID$(A$, 68,1)=CHR$(&HC9) 

THEN 1160 
1140 IF MID$(A$,68,1)=CHR$(&HFF) 

THEN 1160 
1150 PRINT" GRAN 68 IN USE . . . CONT 
INUE(Y/N) ": INPUT Z$:IF Z$="Y" TH 
EN 1160 ELSE 300 
1160 MID$(A$,68,1)=CHR$(&HC9) 
1170 DSKO$ 0,17,2,A$,B$ 
1180 DSKO$ 0,34,11,A$,B$ 
1190 FOR DS=3 TO 9 
1200 DSKI$ 0,17,DS,A$,B$ 
1210. IF DS=9 THEN MID$ ( B$ , 1 20 , LE 
N(DA$ ) )=DA$ 

1220 DSKO$ 0,34,05+9, A$,B$ 
1230 NEXT DS 
1240 MID$(B$,120,8)=DA$ 
1250 GOTO300 

1260 'GET DIRECTORY FROM GR68 

1270 DSKI$ 0,34,18,A$,B$ 

1280 DA$=MID$(B$,120,8) 

1290 PRINT "DATE LAST SAVED WAS 

"DA$ 

1300 INPUT"CONTINUE RESTORE ( Y/N ) 

";A$:IF A$<>"Y" THEN 300 

1310 FOR DS=2 TO 9 

1320 DSKI$0,34,DS+9,A$,B$ 

1330 DSKO$ 0,17,DS,A$,B$ 

1340 NEXT DS 



1350 GOTO 300 
1360 ' v 

1370 'ML SORT ROUTINE (BILL BARD 

EN - JUN.82 TRS80 MICROCOMPUTER 

NEWS P. 13 MODIFIED BY ME) 

1380 A=0:NN=0 

1390 DEFUSR0=&H0E02 

1400 NN=VARPTR ( NA$ ( 0 ) ) 

1410 POKE &H0E00,INT(NN/256) 

1420 POKE &H0E01,NN-INT(NN/256)* 

256 

1430 A=USR0(0) 
1440 RETURN 
1450 ' 

1460 'ML SORT LOADER 

1470 PRINT" LOADING MACHINE LANGU 

AGE SORT": FOR ADDR=&H0E02 TO &H0 

E6 8 : READ A$:POKE ADDR , VAL ( " &H " +A 

$) :CK=CK+VAL( "&H"+A$) : NEXT 

1480 IF CKO10805 THEN PRINT" ERR 

OR IN TYPING ML SORT": STOP 

1490 DATABE,0E,00,34,10,EE,E4,AE 

,5E, 30, IF, 4F, 34, 12 , A6 , C4 , 27 , 2A, A 

6,C4,E6,45,A0,45,24,02,E6,C4,34, 

01,AE,42,10,AE,47,6D,45,26,04,32 

,61,20,29,A6,80,A0,A0,27,04,32,6 

1,20,05,5A,26,F3,3 5,01,2 3,18,AE, 

42,10,AE,47,AF,47,10,AF,4 2,A6,C4 

,E6,45,E7,C4,A7,45,EA,45 

1500 DATAEA,E4,E7,E4,33,45,AE,61 

,30,1F,AF,61,26,B0,A6,E4,32,63,2 

6, Al, 32, 62, 39 

1510 RETURN 

1520 ' 

1530 ' 

1540 'DIRECTIONS 
1550 CLS 

1560 PRINT" THIS PROGRAM WILL PR 
ESENT THE CONTENTS OF YOUR DIS 



K SORTED IN BLOCKS OF 10 FILE 

S. YOU MAY TYPE IN COMMANDS 

NEXT TO THE FILE SUCH AS KIL 
L, COPY OR RENAME. THESE WI 

LL ACT ON THE ADJACENT FILE." 
1570 PRINT : PRINT" YOU MAY ALSO T 



COMMANDS WHICH 
VIEW. FOR EXA 
AGAIN OR THE A 
WILL GIVE YOU 
ACTIONS FOR EA 



YPE IN CERTAIN 

WILL CHANGE THE 
MPLE HELP, QUIT 
RROW KEYS. HELP 
THE SPECIFIC 
CH KEY." 

1580 PRINT : PRINT" HIT A KEY TO CO 

NTINUE" ; : EXEC44539 : CLS 

1590 PRINT" THE PROGRAM CONTAINS 

A MACHINE LANGUAGE SORT AND AU 
TO REPEAT KEY FOR CURSOR AND S 
CREEN MOVEMENT. THE PROTE 

CT FEATURE WILL STORE AND RETRI 
EVE THE FILE ALLOCATION TABL 

E AND DIR. TRACKS TO GRAN 68." 
1600 PRINT : PRINT" BECAUSE ONLY 1 

GRAN (68) IS USED FOR PROTE 

CTION, THE NUMBER OF FILE 

S IS LIMITED TO LESS THAN 56 F 
ILE/DISK. " 

1610 PRINT : PRINT" HIT A KEY TO CO 
NTINUE" ; : EXEC44539 : CLS : GOTO 60 
1620 CLS:STOP 'QUIT COMMAND 
1630 RUN 'READ DIRECTORY AGAIN 
1640 'HARDCOPY 

1650 PRINT @416 , " ENTER TITLE OF 
DIRECTORY" : INPUT TI$ 
1660 PRINT #-2,TI$ 

1670 FOR 1=0 TO QQ:PRINT#-2,NA$ ( 
I) " 

1680 NEXT 
1690 PRINT #-2 

1700 GOTO 300 END 



DAISY WHEEL 

New Smith Corona L-1000 



True letter quality printer for less than the cost of an 
office typewriter" Priced $500 less than other popular 
daisy wheel printers' 



SALE PRICE: 



$249 




FEATURES: 

+ Friction feed 

1 5 cps 1 20 wpm 
+ Changeable daisy wheels 
+ Parallel or serial interface 
* Compatible with R/S. Apple etc 

Circle Reader Service card #456 

SUNLOCK SYSTEMS We accept 
210 Connor Rd. MasterCard. 
Mechanicsville, Va. 231 1 1 visa and cods 

ADDITIONAL PRINTER SPECIALS 

Okidata ComrexCRII $359 CItoh 7500 $239 

ML92 $369 Comrex III 599 CItoh F10 899 

ML192 369 Star SG10 239 

ML84 649 Star PwrTp. 329 

0ki20 149 Str.RadxlO 519 

ML93 579 Gemini 15x 349 

ML182 239 Delta 10 359 

TO ORDER CALL TOLL FREE 800-368-9191 

In Virginia call 804-746-1600 



Epson 
RX80 $229 
LX80 249 
RX100 399 
FX80+ 369 
FX100+499 
JX 80 499 



CItoh 1550 449 
Citoh 8510 319 
Sv.Reed 550 449 
Sv.Reed 500 379 
Epson 1500 899 



10 DISKETTES 

FREE 0R 

20 C-20 CASSETTES 

A subscription to the 'Coco-Cassette' gets you a tape 
or disk full of 10 quality programs delivered to you by 
first class mail every month. The documentation included 
will help you run great utilities like 'Word Processor,' and 
'Budget Analyzer,' or enjoy great games like 'Frogjump' 
and Caterpillar Cave FOR AS LITTLE AS 46 CENTS 
EACH! 

* Limited offer * Subscribe for a year on cassette 
and receive 20 Free C-20 cassettes or subscribe for a 
year on disk and receive 10 Free 5 1 /* single sided 
double density diskettes! 

Now available on disk! 
""PRICES- 




TAPE DISK 



1YR (12 ISSUES) 55 oc 
6 M0 (6 ISSUES) 30 oc 
Single Copies 6 0C 



70" 
40' 



★ 1 6K extended required M ' ch Res J" 4 * , . . 

. « M . , . Overseas ADD $10 to subscription 

★ Some programs require 32K, and or disk and $1 00 t0 single lssues 

★ Over 3000 satisfied customers 

★ Back issues available from July '82 PERSONAL CHECKS WELCOME! 
(over 280 programs to choose from!) „ . miM „ 

★ Also available for Commodore 64. Circle Reader Serv,ce card #236 

T & D Subscription Software 

P.O. BOX 256-C 
HOLLAND, Ml 49423 
~ (616)396-7577 
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HOT CoCo and You? 



Those with the latest and most thorough in- 
formation run their computers with confidence. 
Those without it are run ragged with frustra- 
tion. 

Color Computerists who've gained the upper 
hand read HOT CoCo, the monthly magazine 
that unlocks the full potential of TRS-80* and 
MC-10* Color Computers. 

HOT CoCo's inside stories can make you and 



□ 



YES! 



I want to be part of a 
brilliant team. . . 



Send me 12 issues of HOT CoCo for the low 
price of $24.97. I'll save 30% off the news- 
stand price. 

□ Payment enclosed □ Bill me 



Name . 



Address . 
City 



. State. 



Zip. 



Canada & Mexico $27.97, one year only, US funds drawn on 
US bank. Foreign surface $44.97, one year only, US funds 
drawn on US bank. Foreign airmail please inquire. 

Allow 6 to 8 weeks for delivery. 
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HOT CoCo • PO Box 975 
Farmingdale, NY 11737 



your Color Computer a brilliant team. By sub- 
scribing to HOT CoCo for the low one-year price 
of $24.97, you'll get information-packed issues 
at 30% off the cover price! 

• HOT CoCo specializes in presenting time-effi- 
cient, money-saving programs for business, 
home, and school. Easy to use, and practical! 

• Novice and expert users alike will benefit from 
HOT CoCo's tips and tutorials. Sharpen your 
skill. Watch your CoCo become more versatile! 

• Graphics? Discover how easy it is to create 
your own! 

• Games? HOT CoCo's wide assortment pro- 
vides hours of entertainment and challenge for 
the entire family. 

• Looking to gain an advantage by adding more 
hardware or software? Read our reviews first- 
decide for yourself what's worth its weight in 
gold, and what isn't worth a hill of beans. 

Everything on the pages of HOT CoCo can 
bring out the best in you and your Color Com- 
puter. A wealth of knowledge— for an entire 
year— for just $24.97! 

Order your subscription today by filling in the 
coupon, or by calling TOLL FREE 1-800-258- 
5473. In New Hampshire, call 1-924-9471. 

• TRS-80 and MC- 10 Color Computers are registered trademarks of the Radio 
Shack Tandy Division of Tandy Corp. 



TELEWRITER UTILITY! 

by J.D. German 



This program is available on our Instant CoCo cassette. 



See the Instant CoCo ad elsewhere in this issue. 



zCoCo 



You have just been elected secretary of your local (a) garden club, 
(b) Lions Club, (c) soccer league, or (d) all of the above, and you 
are looking for a mailing-list program that's easy to use and inexpen- 
sive. If you have the Telewriter-64 word-processing program, look no 
further— you already have a terrific mailing-list program. Check the 
ads to see if you can find one with full-screen editing, a 51-column 
display, imbedded printer codes, variable line spacing, merging, chain 
printing for long lists, plus search and replace features for deleting 
names or changing addresses. If you find such mailing-list software, 
you can bet it will be expensive. But with careful formatting, you can 
type your mailing list with Telewriter-64 and get all these features 
without paying a cent. 

There is, however, one essential feature that Telewriter-64 lacks. A 
mailing list program must be able to sort and rearrange the list, usu- 
ally alphabetically by last name or according to zip code. Such sorts 
are useful for finding duplicate entries and for postal bulk-rate pre- 
sorting. With the ASCII Save/Read-In program provided with Telewri- 
ter and the program described in this article, 
you can easily sort your mailing list by name, 
zip code, or— with simple program modifica- 
tions—by membership number, shoe size, hair 
color, or any other item you want to include in 
your mailing list. 



Mail ft with 
Telewriter-64 

Teach your old word processor 
new tricks. 




Typing the Mailing List 

The key to using Telewriter for mailing lists 
is the format, which, as you can see from the 
example in Table 1, is simple. As with any 
Telewriter-64 text that you don't want right- 
and left-justified, you must use a caret semi- 
colon ( A ;) for the beginning and ending lines. 
The second line is used for the mailing-list ti- 
tle, which must be preceded by a caret T (Ti- 
the code for a nonprinting comment. Finally, 
after the title line and between each name-and- 
address block, you must type a caret N ( A N). 
This advances the printer to the next mailing 
label when the list is printed. 

Using this format, a 32K Color Computer 
with Telewriter-64 has room for 200 to 300 
names per mailing list, depending on the av- 
erage length of the names and addresses. A 16 
or 64K computer would hold correspondingly 
shorter or longer lists. Fortunately, Telewriter- 
64 has provisions for chain printing any num- 
ber of files, so this maximum is not really re- 
strictive. For a list of 1,000 names, for 
example, you could quickly presort the names 
into those beginning with the letters A-G, H- 
M, N-S, and T-Z; type them as four lists; sort 
each one; and chain print them. 



Printing the Mailing List 

The Telewriter format menu offers several choices that are useful 
for printing mailing lists. The most common printing requirement is 
to put each name and address on a separate mailing label. For the 
standard 15 / 16 -inch labels (1-inch spacing from label to label), set the 
printer for six lines per inch and the Telewriter-64 format menu to six 
lines per page. You will probably also want to set the left margin to 
five. With the one-line format-menu choice set at zero, the entire mail- 
ing list will be printed at once. For larger or smaller labels, set the lines 
per page on the format menu to the appropriate number. 

The printing sequence is flexible. If you would like to use sheets 
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Domestic Mail 




System Requirements 

16K RAM 
Disk Drive 
Disk Extended Color Basic 
Telewriter-64 
Printer 



containing two or three columns of labels, use the partial-print feature 
to print the first half or third of the list. Then reset the margin, roll the 
paper back to the start, and use the partial print for the next portion 
of the list. Another variation lets you print names and addresses di- 
rectly on envelopes, flyers, or catalogs. In this case, set the lines per 
page to 66 and the one-page statement to one. Now each time you roll 
in an envelope and press the break key, the printer will print the next 
name and address and roll the envelope out into your hand. 

Sorting the List 

To sort a Telewriter-64 mailing list, type in and save the TW Sort 
program shown in Listing 1. The program is designed for the list for- 
mat given in Table 1. If your mailing list requires a different format— 
an extra address line for a membership or phone number, for in- 
stance—refer to the last section for help in modifying the program. 
Unfortunately, you cannot use commas or colons in addresses be- 
cause they are interpreted as Disk Basic commands. 

The procedure for sorting mailing lists is simple. First, type the 
mailing list in the proper format using Telewriter-64; then return to 
the Telewriter-64 menu and enter Basic by pressing B. Load the ASCII 
Save/Read-In program provided with Telewriter-64. Put a newly for- 
matted disk in the drive and save the mailing list as ASCII code. Be 
sure to use the file name, SORT ML, when saving the list. Turn off 
and restart the computer; then load and run TW Sort. The program 
prompts you to press the play button and select the sort method. Go 
watch a football game or your favorite video movie. (More on sort times 
later.) When the sort is finished, the program offers you the choice of 
printing the sorted list for a quick check or saving it to disk. Follow 
the prompts to save the sorted list on disk. 

Now, reload Telewriter-64 and the ASCII Save/Read-In program as 
before. Read in the sorted mailing list, which is now called SOR- 
TEDML. Return to Telewriter-64's edit mode and check the list to be 
sure it is still properly formatted. Then return to the Telewriter-64 
menu and save the sorted list on another disk in the normal (non- 
ASCII) Telewriter-64 file format. This will make it easy to load and use 
later without the ASCII Save/Read-In program. You can now print 
labels, periodically update the list, or 
pass it along to the next person that 
gets stuck with the secretary's job. 



The Sorting Program 

TW Sort is designed so that you 
can easily adapt the format to your 
needs. Each section of the program 
is labeled to show its function, and 
the structure follows— as much as 
possible— a logical order. To see how 
you can modify the program, let's 
add a membership-number line 
above each name. 

First, you must dimension a new 
variable, call it MEMNUM$, in line 
15. Change the input routine to read 
four lines per address block by chang- 
ing the 3 in line 1025 to a 4. Next, add 
a new membership-number sort rou- 
tine after the zip-sort routine. Since 
the first line of each list item would 
contain only the membership num- 
ber, you don't need a subroutine to 
separate that number as you do with 
the last-name and zip sorts. Simply 
write program lines to compare each 
membership number with the oth- 

Tell them "I saw it in HOT CoCo.' 



A T Club Mailing List 
A JV 

John Doe 
123 Fourth Street 
New York NY 10102 
A N 

Mary Smith 

987 Main Street Apt. #4 
Miami FL 35508 
A iV 

Bill Jones 

55 Washington Ave. 
Dallas TX 75234 

Pat Hill 
P.O. Box 456 
Los Angeles CA 98240 
A N 

J. C. Nickel 
Route #1 Box 76 
Ojo Caliente NM 87649 



Table 1 . Example of Proper 
Format for Original (Un- 
sorted) Mailing List 



FOR THE COLOR COMPUTER FROM 

Circle Reader Service card #277 

triad pictures corp. 

p o box 1 299 sequim, wo 98382 



□ □□□□□□□□□ □ /7 □□□□□□□□□□□□□□□□ 

WAR ^WORLDS 

□□□□□□□□□□□□□□□□□□□□□□□□□□□□ 

A 100% JOYSTICK-DRIVEN ILLUSTRATED ADVENTURE! 
NO MORE "HUNT-AND-GUESS" ON THE KEYBOARD! 
HUNDREDS OF CHALLENGING SITUATIONS! 



u 



-JL 



Pre 



s * FIRE tumor, for 



options. 



The highly detailed black & white illustrations put even the best color 
adventure graphics to shame the first of a whole new kind of 
point-and-klick' adventure the wave of the future!! 

WAR of the WORLDS Chapter One - The Landing 
SPECIAL INTRODUCTORY OFFER - $16.95 

SOLD SEPARATELY for $18 95 each: 
WAR of the WORLDS Chapter Two - The Quest 
WAR of the WORLDS Chapter Three - The Last Hope 
SPECIAL PACKAGE PRICE - All 3 Chapters for $39 95 

SUPPLIED ON CASSETTE 

REQUIRES 64K AND ONE RADIO SHACK-TYPE JOYSTICK 

************************* 

Please send me: Order f Orm 



□ Bill me 

□ Payment enclosed 



Add $3 shipping and handling ... $3 
TOTAL $ 



City 



state 



zip 



TRIAD PICTURES 
P.O. Box 1 299 
Sequim, WA 98382 
(206) 683-6459 



CALL OR WRITE FOR CATALOG 
IN AUSTRALIA 

ORDER TRIAD PICTURES SOFTWARE FROM 
SOFTWARE SPECTRUM, P 0 BOX 2101 
ADELAIDE, SOUTH AUSTRALIA, 5001 
(08) 211 8763 OR 51 4868 
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ers. (Lines 2525-2560 perform this function for the zip codes.) Finally, 
write PRINT statements for MEMNUM$(I) in the print-sorted-list and 
save-sorted-list routines. 

In an effort to keep the program short and simple, I used a rather 
primitive sorting technique. As a result, the sorting times get long for 
large lists— over two hours for 250 names. But since you don't have 
to perform sorts frequently, this shouldn't be a severe shortcoming. If 
none of the zip codes you use contains nine digits, delete line 210 to 
speed up the sort. 

Two final notes on the TW Sort program. If you have an early ver- 



sion of the CoCo, you might have the ROM (read-only memory) version 
with the PCLEAR bug in it. If you get only an OK prompt when you 
run TW Sort, type RUN again. You can also omit all comment lines to 
reduce your typing. The GOTOs and GOSUBs transfer control to the 
line following the comment, so the program runs with or without the 
comments. ■ 



Address correspondence to J.D. German, Creative Technical Consult- 
ants, Box 652, Cedar Crest, NM 87008. 



Program Listing. TW Sort. 



10 PCLEARl: CLEAR 16000 

15 DIM NAME$(250) ,ADDR$(250) ,CSZ 

$(250) 

20 CLS 

30 GOTO 7010 

100 ' ***SUBROUTINES*** 

110 • ***LAST NAME SEPARATOR*** 

120 Z=LEN(N$) 

130 FOR K=l TO Z 

140 LN$=RIGHT$(N$, K) 

150 IF LEFT$(LN$,1)=" " THEN LN$ 

=RIGHT$(LN$,K-1) ELSE NEXT K 

160 RETURN 

180 ' ***ZIP SEPARATOR*** 

200 ZIP$=RIGHT$(CSZ$,5) 

210 IF LEFT$(ZIP$,1)="-" THEN ZI 

P$=RIGHT$(CSZ$, 10) 

220 IF VAL(ZIP$)=0 THEN ZIP$="" 

230 RETURN 

250 , ***INKEY$*** 

260 PRINTG483, "press any key to 

continue" ; 

270 SOUND 150,2:SOUND 50,2 
280 A$=INKEY$ 

290 IF A$=""THEN280 ELSE RETURN 
295 ' 

300 PRINT@483, "press 1 or 2 to 
continue" ; 

310 SOUND 50,2:SOUND 150,2 
320 CH$=INKEY$:CH=VAL(CH$) 
330 IF CH=1 OR CH=2 THEN RETURN 
ELSE 320 

340 ' ***END OF SUBROUTINES*** 
350 ' 

1000 '***MAILING LIST INPUT*** 
1010 OPEN "I",#l f "SORT ML" 
1015 IN?UT#1,CC$,TITLE$ / NP$ 

1017 PR I NT "MAI LING LIST TITLED" 

1018 PRINT RIGHT$(TITLE$,LEN(TIT 
LE$)-3) 

1019 PRINT" IS NOW BEING SORTED" 

1020 EL=1 

1025 FOR RL=1 TO 3 

1030 IF EOF(l) THEN CLOSE#l:EL=E 

L-l:GOTO 3505 

1040 INPUT #1,L$(RL) 

1050 IF LEFT$(L$(RL) , 1 ) =" ~ " THEN 

1025 ELSE NEXT RL 
1060 IF RIGHT$(L$(1) ,1)=" " THEN 
L$(1)=LEFT$(L$(1) ,LEN(L$(1) )-l) : 
GOTO1060 

1070 IF RIGHT$(L$(3) ,1)=" " THEN 
L$(3)=LEFT$(L$(3) ,LEN(L$(3) )-l) : 
GOTO1070 

1080 ON CH GOTO 2010,2510 
2000 ' ***LAST NAME SORT*** 
2010 IF EL=1 THEN I=l:GOTO 3050 



2020 N$=L$(1) :GOSUB 120 

2030 CN$=LN$ 

2040 FOR 1=1 TO EL-1 

2050 N$=NAME$(I) :GOSUB 120 

2060 IF CN$>=LN$ THEN NEXT I 

ELSE 3000 

2070 I=EL:GOTO 3050 

2500 '***ZIP SORT*** 

2510 IF EL=1 THEN I=l:GOTO 3050 

2520 CSZ$=L$(3) :GOSUB 200 

2525 CZ$=ZIP$ 

2530 FOR 1=1 TO EL-1 

2540 CSZ$=CSZ$(I) :GOSUB 200 

2550 IF CZ$>=ZIP$ THEN NEXT I 

ELSE 3000 

2560 I=EL:GOTO 3050 

2990 «***NAME REORGANIZER*** 

3000 FOR J=EL TO 1+1 STEP -1 

3010 NAME$ ( J ) =NAME$ ( J-l ) 

3020 ADDR$ ( J ) =ADDR$ ( J-l ) 

3030 CSZ$( J)=CSZ$( J-l) 

3040 NEXT J 

3050 NAME$(I)=L$(1) 

3060 ADDR$(I)=L$(2) 

3070 CSZ$(I)=L$(3) 

3090 EL=EL+1 

3100 GOTO 1025 

3500 '***SORTED LIST MENU*** 
3505 CLS 

3510 PRINT@3 , "sort complete-what 
next?" 

3520 PRINT@96,"1> PRINT SORTED M 
AILING LIST." 

3530 PRINT@192, "2> STORE SORTED 

MAILING LIST ON DISK IN AS 

CI I FORMAT." 

3540 GOSUB 300 

3550 ON CH GOTO 4010,5010 

4000 ' ***PRINT SORTED LIST*** 

4010 FOR 1=1 TO EL 

4020 PRINT#-2,NAME$(I) 

4030 PRINT#-2,ADDR$(I) 

4040 PRINT#-2,CSZ$(I) 

4045 PRINT#-2 

4050 NEXT I 

4060 GOTO 3505 

5000 '***SAVE SORTED LIST*** 
5010 CLS 

5020 PRINT@3,"to save sorted mai 
ling list" 

5030 PRINT@64,"A> INSERT DISK FO 

R SAVING NEW FILE." 

5050 PRINT@128 , "B> PRESS ANY KEY 

TO START SAVE" 
5060 PRINT@192,"C> SORTED MAILIN 
G LIST WILL BE SAVED IN ASCI 

I FORMAT AS FILE NAME 'SO 

RTEDML ' . " 

5070 PRINT@288, "D> TO EDIT, RENA 
ME OR SAVE IN TW BINARY FOR 



MAT, INPUT LIST TO TELEWRITER 
USING ASCII READ-IN PR 

OGRAM. " 

5080 GOSUB 260 

5100 OPEN "0",#1," SORTEDML" 

5110 PRINT#1,CC$ 

5120 PRINT#1,TITLE$ 

5125 PRINT#1,NP$ 

5130 FOR 1=1 TO EL 

5140 PRINT#1,NAME$(I) 

5150 PRINT#1,ADDR$(I) 

5160 PRINT#1,CSZ$(I) 

5170 IF KEL THEN PRINT#1,NP$ 

5180 NEXT I 

5190 PRINT#1,CC$ 

5200 CLOSE#l 

5210 CLS 

5220 PRINT" SORTED MAILING LIST I 

S SAVED. PRESS ANY KEY TO RETU 

RN TO THE LAST MENU." 

5230 GOSUB 260:GOTO 3505 

7000 '***INSTRUCTIONS*** 

7010 PRINTS 6,"tw sort instructi 

ons" 

7020 PRINT@32, "1> USE TELEWRITER 
TO CREATE A MAILING LIST I 

N THIS FORMAT:" 
7030 PRINTG100,"";" 
7040 PRINTei32,""T CLUB MAILING 
LIST" 

7045 PRINT@164,""N" 

7050 PRINT@196 , "JOHN A. DOE" 

7060 PRINT@228, "123 FIRST STREET 

■ 

7070 PRINT@260, "ALBUQUERQUE, NM 
87908" 

7080 PRINT@292,"~N" 

7090 PRINT@324,"JANE SMITH" 

7100 PRINT@356,"2468 MAIN STREET 

■ 

7110 PRINT@388, "AURORA, IL 60516 
m 

7120 PRINT@420 , " ~ ; " 

7130 PRINT"2> ASCII SAVE LIST AS 

'SORT ML'" 
7140 GOSUB 260 
7150 CLS 

7160 PRINTG10, "to use tw sort" 
7170 PRINT@64,"A> INSERT ASCII M 
AILING LIST DISK TO BE SOR 

TED. " 

7180 PRINT@192,"B> SELECT SORT O 

F OPTION 1 OR 2" 

7200 PRINT@324,"1) NAME SORT" 

7210 PRINT@356,"2) ZIP SORT" 

7220 GOSUB 300 

7230 CLS 0 

7240 GOTO 1010 

END 
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GAME 



This program is available on our Instant CoCo cassette, jj M? 5 *??* 

by WSld© J ©PIS© See the lnstant CoCo ad elsewhere in this issue. 1 vOLO. 



Listen to the clues to 
find the thief before 
your opponents. 

Someone has committed a crime. You 
and your opponents are private detec- 
tives assigned to track down and arrest a 
thief. The detective who makes the arrest re- 
ceives a reward. Your challenge— to be the 
first detective to accumulate enough reward 
money to win. 

This thief is computer controlled and com- 
pletely invisible. But you can hear him. Each 
time the thief makes a move on the board, he 
triggers a sound on your CoCo. This remark- 
able device follows every move the thief 
makes on the board so you can hear him in 
the very act of committing the crime, cross- 
ing a squeaking floor, opening a creaky door, 
or escaping on the elevators. 

Each sound you hear on your 
CoCo provides you with a clue to 
the thief's location; with 
these, you can track him 
down. Use your CoCo to 
call the cops, direct 
them to the thief, and 
with a little luck, the 
cops will arrest^ 
him. 



Halt Thief! 



Loading 

To load, type in the Listing. Check every 
line to be sure it agrees with the Listing. 
Count the number of items in each DATA 
statement to ensure the correct number for 
the required READ loops and DIM statements. 

After you run the program and display the 
board, make sure the yellow, orange, and 
dark blue squares are lined up horizontally, 
vertically, and diagonally. If they don't line 
up, the program will not run correctly. Check 
the main body of DATA statements for errors. 

The Board 

The board is made of graphic character 
blocks POKEd onto the screen with two 
blocks making up each square space. The 
players' and thief's symbols displayed on the 
board cover only half of each space so you 
can see the color of the space you are on. 

The green spaces represent walls that nei- 
ther the player nor the thief can move onto 
or cross. The yellow and black spaces are 
empty; the players can move onto either of 
these areas, but the thief can only move on 
the yellow spaces. The orange spaces repre- 
sent places where the thief might commit a 
crime and are treated as yellow spaces for 
movement purposes. The dark blue squares 
represent doors through which both the thief 
and the player can move. The light blue 
areas can cover one or more spaces and rep- 
resent items such as checkout counters, 
desks, statues, and plants. Neither the thief 
nor the players can move onto these areas. 
The white spaces represent windows into 
which neither the thief nor the player can 
move. (See Table 1.) 

In the top right and the bottom left corners 
of the board is the symbol EL, which repre- 
sents the two elevators on each level. To use 
an elevator, position your character on the E 
of EL and press U for up or D for down. The 
CoCo reprints the screen to the level above 

System Requirements 

32K RAM 
Extended Color Basic 



or below you. Your present level (1-4) is 
printed in the bottom left corner of the 
screen. 

Along the bottom is a line of information. 
If a question mark appears, it is your prompt 
to press a key. Next, in response to this, a 
"NO" or an "OK' appears on the subline. OK 
indicates that the CoCo can carry out the 
function of that key. The next item to appear 
is a two-character symbol representing the 
last sound clue given, and finally, the name 
of the current player, the amount of money 
he has, and the number of moves he has left. 

Your Turn 

At the beginning of your turn, the CoCo 
moves the thief and gives corresponding 
sound clues and a random number of moves 
from 1 to 12. You use one card per turn by 
pressing C. The CoCo clears the screen and 
displays your three cards. Press the number 
of the card you wish to use, and the CoCo 
carries out your wish. If you don't want a 
card, press five and the CoCo reprints the 
screen. You can use a card later; the CoCo 
replaces it with another random card. 



Color 


Rep. 


Thief 


Player 


Green 


Wall 


N 


N 


Orange 


Crime 


Y 


Y 


Yellow 


Empty 


Y 


Y 


Black 


Empty 


N 


Y 


Dark Blue 


Door 


Y 


Y 


Light Blue 


Items 


N 


N 


White 


Window 


N 


N 


EL 


Elevator 


Y 


Y 



Table 1 . Board Information 

When you use a "tip" card, watch the 

screen carefully because the CoCo only dis- J 

plays a T (the thief's location) for a few sec- 3 

onds. After you use a "take another turn" | 

card, the CoCo gives you more moves and a § 

chance to use another card. On your turn you 5* 

can use all, part, or none of your moves. J 

When you press F to finish, the next player § 

starts. I 
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Player Movement 

Eight different keys let you move your 
symbols as follows: N moves north; T, north- 
east; E, east; V, southeast; S, south; Z, south- 
west; W, west; and Q, northwest. Seven other 
keys, including U and D, help you on your 
mission. R repeats the last clue, and X alter- 
nately prints the thief's and player's level. 
(See Tables 2 and 3.) 



N 


North 


T 


Northeast 


E 


East 


V 


Southeast 


s 


South 


z 


Southwest 


w 


West 


9 


Northwest 


u 


Up 


D 


Down 



Table 2. Player Movements 



A 


Arrest 


R 


Repeat Clue 


C 


Use Card 


X 


Display Thief Level 


X 


Display Player Level 


F 


Finished 


H 


Help Table 



Table 3. Player Functions 

If the only item displayed on the subline is 
a question mark, press X until the complete 
subline is displayed. To make an arrest when 
you and the thief are on the same space, 
press A. The game uses a series of sound ef- 
fects beginning with a siren. If you guess cor- 
rectly and are on the same space and level as 
the thief, you hear shooting; if the police can 
catch the thief, you hear another siren. The 
CoCo then congratulates you and starts an- 
other thief on a spree of crimes. 

If, however, the thief escapes, the CoCo 
sounds the getaway and five clues, moving 
the thief five times. You must listen carefully 
to get all five sound clues. If you mistake the 
location of the thief, the CoCo gives a low- 
pitched sound and punishes you for a false 



Difficulty Number of 

Level Cards 

1 14 20% 

2 12 25% 

3 10 33% 

4 6 50% 



Table 4. Influence of Difficulty Level 

arrest by taking away $100 and all your re- 
maining moves. 

Thief Movement 

The CoCo only moves the thief in three cir- 
cumstances; at the beginning of each play- 
er's turn and when a player uses a "take 
another turn" card, when a player uses a 
"take an extra clue" card, and when the thief 
gets away during an arrest. Every time the 
thief moves, the CoCo sounds a clue and 
prints the symbol on the subline. For every 
clue sounded, the thief moves two full spaces 
horizontally, vertically, or diagonally. 

When the thief escapes an arrest, five clues 
sound, so he moves 10 spaces; for every use 
of an "extra clues" card, he moves two 
spaces per clue. When a thief moves, he 
never goes directly to his previous space, but 
may do so in two moves. The thief moves on 
every other space and is never found on a 
black space. 

Four clues can appear on the subline. The 
first clue to appear in the game is CR, mean- 
ing the thief has just committed a crime and 
is on an orange space. When he has opened 
a door, DR appears on the subline and he is 
on a dark blue space. If the thief has just 
taken two steps across an open floor, SP ap- 
pears and he is on a yellow space. You know 
that the thief is on one of the two EL spaces 
when EL appears on the subline. 

When the thief uses an elevator the CoCo 
picks a random number to see if he goes up 
or down. He will always go from the first to 
second level or from the fourth to the third. 
The CoCo prints the thief's level and the cur- 
rent player's level. As long as the thief's level 
differs from the player's, the CoCo reprints 
the thief's level before giving the next clue. 



Maximum 


Reward 


Money to 


Rolls 




Win 


12 


$800 


$2,000 


10 


$700 


$2,500 


8 


$600 


$3,000 


6 


$500 


$3,500 



Tracking the Thief 

At any given moment, the thief might be 
at one of several locations. You must use 
your knowledge of where and when a thief 
moves, along with his previous location to 
determine where he might be. 

When tracking the thief, watch every 
space that is exactly two spaces away from 
the thief's possible location. Remember also 
that the clues given during the other players' 
turns are just as important as the clue given 
during your turn. You can narrow the possi- 
bilities down to two or three if you don't 
know the thief's exact location. 

Playing the Game 

After displaying the help screens and 
prompting you to choose the level of difficulty, 
the CoCo asks for the name of each player. 
Submit a name containing three to eight char- 
acters. The program renumbers the names' in 
a semirandom order, assigns a symbol to each 
name, and prints the renumbered names and 
the players' symbols for use on the board. The 
CoCo randomly assigns each player three 
cards and displays them for each player. The 
game starts on a randomly chosen floor. Fi- 
nally, the CoCo places the thief on a random 
crime space, sounds the clue, and turns the 
keyboard over to the first player. 

To start another game, press the Y key 
after a player has won the game or press the 
break key and type GOTO 58. For a longer 
game, choose a higher difficulty level. ■ 



Address correspondence to Wade dense, 440 
E. 300 N.4 Pleasant Grove, UT 84062. 



Chances of Thief 
Escaping 



Program Listing. Halt Thief 



2 1 * HALT THIEF II * 

6 CLS:FORL=29696TO30207:POKEL,12 
8 : NEXT 

7 POKE6 547 8,0:POKE6 5481,0:POKE6 5 
48 2 ,0:POKE6 548 5, 0 : POKE6 5487 , 0 : PO 
KE65489,0:POKE65490,0 

8 FORL=1TO110 

9 READST 

10 POKE(ST+29696) ,255 



11 SOUND55,l:NEXT 

12 FORR=1TO20 

13 READV , Z 

14 POKE(V+28674) ,Z 

15 SOUND200,5:NEXT 

16 DATA37 / 41,43, 44,45,46,47, 49, 5 
5,56,57,58,59,254,253,317,378,37 
6,375,374,373,372,370,369,368,36 
7,366,364,360,356,226,227,69,73, 
7 5,79,81,89,252,251,316,315,346, 
3 40,336,3 32,328,324,292,260,228, 
229,165,133,101,102,103,104,105, 
107,108,109,110,111,113 



17 DATA121,250,282,314,311,310,3 
09,308,304,300,299,298,297,296,2 
30,137,139,143,145,153,248,247,2 
76,27 2,268,264,2 3 2,169,171,175,1 
77,178,179,180,181, 185,246,245,2 
44,24 2,241,240,2 39,2 38,2 36 

18 DATA1403,9,1404,9,1442,40,144 
3,3,1444,41,1446,49,1447,57,1448 
,56,1449,52,14 51,2,1452,25,1454, 
23,1455,1,1456,4,1457,5,1459,10, 
1460,5,1461,14,146 2,19,146 3,5 

19 FORLV=30208TO32255 

20 READ LE 
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21 POKELV, LE 

22 NEXT 

23 DATA 128,128,128,128,128,128, 
128,128,128,128,128,128,128,128, 
128,128,128,128,128,128,128,128, 
128,128,128,128,128,128,128,128, 
128 , 128, 143, 143, 143, 143 , 207,207, 
14 3,143, 143,143,14 3,14 3,14 3,143, 
143,143,143,143,143,143,143,143, 
143,143,143,143,143,143,143 

24 DATA 143,128,128,2,143,128,12 
8,128,128,128,128,2 39,239,239,23 
9,143,143,36,36,36,36,36,36,36,1 
43,143,143,14 3,143,143,143,143,1 
43,128,128,1,143,128,128,159,159 
,128,128,239,239,239,239,143,143 
,36,36,36,36,36,143,143,143,2 39, 
239,5,12,239,239,143,143 

25 DATA128,128,14,143,239,239,12 
8,128,128,128,239,239,2 39,239,14 
3,143,143,143,2 39,2 39,143,143,14 
3 , 128 , 128 , 128, 128, 1 28", 128, 128, 14 
3,143,128,128,11,143,2 39,239,159 
,159,128,128,255,255,128,128,175 
,175,128,128,255,255,128,128,159 
,159,128,128,255 

26 DATA 255,128,128,207,207,128, 
128, 143, 143, 128, 128, 128, 128, 128, 
128,143,143,128,128,143,143,128, 
128,128,128,128,128,128,128,128, 
128, 36, 36, 36, 36, 143, 143, 128, 128, 
143,143,128,128,159,159,128,128, 
143,143,143,143,143,143,143,143, 
143,143 

27 DATA 143,143,175,175,143,143, 
143,143,143,143,143,14 3,128,128, 
12,143,128,128,128,128,128,128,1 
43, 143, 128, 128, 143, 143, 239, 239, 2 
39,239,239,2 39,128,128,128,128,1 
28,128,128,128,143,143,128,128,2 
2,14 3, 128, 128,159,159,128,128,2 5 
5,255,128,128,175,17 5,128 

28 DATA 128,255,255,128,128,159, 
159,128,128,159,159, 128,128,207, 
207,128,128,12,143,128,128,128,1 
28,128,128,143,143,128, 128,143,1 
43,2 39,2 39,239,2 39,239,2 39,128,1 
28,128,128,128,128,128,128,143,1 
43, 128, 128, 143, 143, 128, 128, 159,1 
59,128,128,143,143 

29 DATA 143,143,143,143,143,143, 
143,143,143,143,143,143,143,143, 
175,175,143,143,143,143,128,128, 
143, 143, 128, 128, 128, 128, 128, 128, 
128,128,128,128,143,143,239,239, 
239,239,239,239,143,143,128,128, 
128,128,128,128,143,143,128,128, 
49,143,143,143,5,12,128 

30 DATA 128,159,159,128,128,175, 
17 5,128,128,255,2 5 5,128,128,175, 
175,128,128,159,159,128,128,207, 
207,128,128,143,143,143,143,14 3, 
14 3,128,128,128,128,128,128,143, 
143,128,128,128,128,128,128,143, 
143,128,128,128,128,128,128,14 3, 
143,128,128,143,143,143 

31 DATA 143,143,143,143,143,143, 
143, 143, 143, 143, 143, 143, 143, 143, 
143,143,143,143,143,14 3,143,14 3, 
143,143,143,143,143, 128,128 

32 DATA 128,128,128,128,128,128, 
128,128,128,128,128,128,128,128, 
128,128,128,128,128,128,128, 128, 
128,128,128,128,128,128,128,128, 
128,128,143,143,143,143,207,207, 
143,143,143,143,143,143,14 3,143, 
14 3,14 3,207,207,143,14 3,143,14 3, 
143,143,143,143,143,143 



33 DATA 143,143,128,128,143,143, 
128,128,128,128,128,128,239,239, 

2 39,239, 143, 143, 128, 128, 128, 128, 
128,128,143,143,128,128,143,143, 
143, 143, 143, 143, 128, 128, 143, 143, 
128,128,159,159,128,128,255,255, 
128, 128,175,175,128,128,159,159, 
128,128,175,175,128,128,5 

34 DATA 12,143,143,143,143,128,1 
28,1,143,128,128,128,128,128,128 
,128,128,128,128,143,143,128,128 
,128,128,128,128,143,143,128,128 
,128,128,239,239,143,143,128,128 
,14,143,239,239,159,159,143,143, 
143, 143, 143, 143, 143, 143, 143, 143, 
143,143,143,143,143,143 

35 DATA 128,128,255,255,128,128, 
207,207,128,128,20, 143,239,239,1 
28,128,143,143,128,128,128,128,1 
28,128,239,239,239,2 39,239,2 39,1 
4 3,143,128,128, 128,128,128,128,1 
43, 143, 128, 128, 9, 143, 14 3, 143, 175 
,175,143,143,143,143,131,128,159 
,159,128,128,255,2 55,128,128 

36 DATA 175,175,128,128,159,159, 
128, 128, 143, 143, 128, 128, 17, 143,1 
28,128,128, 128,128,128,128,140,1 
43,143,131,128,128,128,128,128,1 
28,128,143,143,128, 128,128,128,1 
28,128,14 3,143,128,128,21,143,12 
8,128,159,159,128,128,2 39,239,12 
8,140,175,175,131,128 

37 DATA 159,159,128,128,143,143, 
128,128,159,159,128,128,207,207, 
128, 128, 5, 143, 128, 128, 128, 128, 12 
8, 128, 128, 128, 128, 128, 128, 140, 14 
3, 14 3, 128, 128, 128, 128, 143, 143, 12 
8, 128, 128, 128, 128, 128, 143, 143, 12 
8, 128, 19, 143, 128, 128, 159, 159, 128 
,128,159,159,128,128,131 

38 DATA 131,143,143,143,143,143, 
143,143, 143,143,143,175,175,14 3, 
143,143,143,128,128,143,143,128, 
128,128,128,128, 128,128,128, 128, 
128,14 3,14 3,2 39,2 39,2 39,2 39,2 39, 
239,143,143,128,128,128,128,128, 
128, 143, 143, 128, 128, 143, 143, 143, 
143,5,12,128,128,159,159 

39 DATA 128,128,175,175,128,128, 
255,255,128,128, 175,175,128,128, 
159,159,128,128,207,207,128,128, 
50,143,143,143,143,143,128,128,1 
28, 128, 128 , 128, 143, 143, 128, 128,1 
28, 128, 128, 128, 143, 14 3, 128, 128,1 
28, 128, 128, 128, 143, 143, 128,1 28, 1 
43,143,143,143,143,143,143 

40 DATA 143,143,143,143,143,143, 
143,143,143,143,143,143,14 3,14 3, 
143, 143, 143, 143, 143, 143, 143, 143, 
143,128,128 

41 DATA 128,128,128,128,128,128, 
128,128,128,128,128,128,128,128, 
128,128,128,128,128,128,128,128, 
128, 128, 128,128,128, 128,128,128, 
128,128,143,143,143,143,207,207, 
143,143,143,143,143,143,207,207, 
143,143,143,143,143,143,207,207, 
143,143,143,143,143,143 

42 DATA 143,143,128,128,143,143, 
128,128,128,128,128,128,128,128, 
128,128,128,128,128,128,128,128, 
128,128,128,128,128,128,143,143, 
143, 143, 143, 143, 128, 128, 10, 143,1 
28,128,159,159,128,128,159,159,1 
28,128,159,159,128,128,159,159,1 
28,128,159,159,128,128,5,12 

43 DATA143,143,143,143,128,128,5 
,143,128,128,128,128,128,128,128 



,128,128,128,128, 128,128, 128, 128 
,128,128,128,128,128,128,128,128 
,128,239,2 39,143,143,128,128,23, 
143,143,143,143,143,143,143,175, 
175,143,143,143,143,143,143,255, 
255,143,143,143,143 

44 DATA 128,128,255,255,128,128, 
207,207,128,128,5,143, 128,128,12 
8,128,128,128,128,128,128,128,14 
3,14 3,2 39,2 39,128,128,2 39,2 39,14 
3,143,128,128,128,128,128,128,14 
3,14 3,128,128,49,143,128,128,159 
,159,128,128,159,159,128,128,143 
,143,143,143,175,175 

45 DATA 143,143,143,143,143,143, 
175,175,143,143,143,143,128,128, 
18,143,128,128,128,128,2 39,2 39,2 
27,227,227,227,143,143,239,2 39,1 
28,128,2 39,239,143,143,128,128,1 
28,128,2 39,239,143,143,128,128,2 
5,143,128,128,255,255,2 39,239,23 
9,239,239,239,143 

46 DATA 143,239,239,255,255,239, 
239,143,143,128,128,2 55,255,2 39, 
239,143,143,128,128,143,143,128, 
128,128,128,128,128,128,128,128, 
128,143,143,2 39,239,128,128,239, 
239,143,143,128,128,128,128,239, 
2 39,143,143,128,128,143,143, 128, 
128,159,159,128,128,159 

47 DATA 159,128,128,143,143,143, 
143, 175, 175, 143, 143, 143, 143, 143, 
14 3,175,175,143,143,143,143,128, 
128,143,143,128,128,128,128, 128, 
128,128,128,128,128,239,239,239, 
239,128,128,128,128,143,143,128, 
128,128,128,128,128,143,143,128, 
128,143,143,143,143,5,12 

48 DATA 128,128,159,159,128,128, 
255,255,128,128,159,159,128,128, 
159,159,128,128,159,159,128, 128, 
207,207,128,128,51,143,143,143,1 
43,143,128,128,128,128,128,128,1 
28,128, 128,128,128, 128,128,128,1 
43,143,128,128,128,128, 128,128,1 
43,143,128,128,143,143,143 

49 DATA 143,143,143,143,143,143, 
143,143,143,143,143,143,143,143, 
143,143,143,143,143,143,143,143, 
143, 143, 143, 143, 143, 128, 128 

50 DATA 128,128,128,128,128,128, 
128, 128, 128, 128, 128, 128, 128, 128, 
128,128,128,128,128,128,128,128, 
128,128,128,128,128,128,128,128, 
128,128,14 3,14 3,14 3,14 3,207,207, 
143,143,14 3,14 3,14 3,143,207,207, 
14 3,143,143,143,143,143,207,207, 
143,143,143,143,14 3,143,143 

51 DATA 143,128,128,143,143,128, 
128,128,128,128,128,143,143,128, 
128,128,128,128,128,143,143,128, 
128,128,128,128,128,143,143,143, 
143,143,143,128,128,6,143,128,12 
8,159,159,128,128,143,143,128,12 
8,159,159,128,128,175,175,128,12 
8,159,159,128,128,5,12,143 

52 DATA143,143,143,128,128,21,14 
3,128, 128,128,128,128,128,143,1 
43,128,128,128,128,128,128,14 3,1 
4 3,128, 128, 128, 128,128, 128,128,1 
28, 128, 128, 143, 143, 128, 128, 18, 14 
3,128,128,159,159,128,128,175,17 
5,128,128,255,255,128,128,128,14 
0,143,131,159,159,128,128 

53 DATA159, 159, 128,128,207,207,1 
28,128,19,143,128,128,128,128,12 
8, 128, 143, 143, 128, 128, 128, 128, 23 
9,239,2 39,239,143,143,128,128,12 

November 1985 HOT CoCo 39 



This is one of those rare 
programs that will captivate 
everyone in your family.... 
No one can see CoCo Max 
and not want to try it! 



File Edit goodies Font style 



We are all witnessing an exciting revolu- 
tion in microcomputers: a radically new 
kind of computer and software that 
opens a whole new world of creative 
power to computer users. 

It was inevitable that this exciting ap- 
proach would be brought to the CoCo. 
With this in mind, Colorware chose to 
go all out and maximize this new con- 
cept for the color computer. That meant 
designing not just software but hardware 
too. It meant thousands of hours of pure 
machine language programming. Rarely 
has this much effort been applied to one 
product for the Color Computer. 
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UNMATCHED CAPABILITY... 

Because we took the maximum approach: 
highly optimized machine code combin- 
ed with hardware, CoCo Max trulv 
stands above the rest as the ultimate 
creative tool for the Color Computer. It's 
unrivaled performance lets you create 
with more brilliance and more speed 
than any similar system - much more 
than you ever imagined possible. And, 
vou can do it in black & white or color. 



Edit Goodies Font style 




Memory2= 



■■ ■■ ■ ■■ 



III lll$£»X?Sffi;ti 



All the sophisticated power of the bigger 
systems is there: Icons, Pull-Down Menus, 
full Graphic Editing, Font Styles, and all 

kinds of handy tools and shortcuts. 

Plug your joystick, mouse or touch pad 
into CoCo Max's Hi-Res Input Unit. Then 
use a delightfully simple Point-and-Click 
method to get any of CoCo Max's power- 
ful graphic tools. It has them all: 



You can Brush, Spray or Fill with any Col- 
or, Shading or Pattern. Use Rubber Band 
Lines and Shapes (square, rectangle, cir- 
cle, elipse, etc.) to create perfect illustra- 
tions with speed and ease. There's a Pen- 
cil, an Eraser and even a selection of 
Caligraphy Brushes. And, as vou can see, 
CoCo Max can do a lot with text. 
All of the newest special effects are 
there: Trace Edges, Flip, Invert, Brush Mir- 
rors, etc. And all of the very latest super- 
capabilities like: Undo, which 
automatically reverses your mistakes, and 
Fat Bits which zooms you way in on any 
part of your subject to allow dot-tor-dot 
precision. 




THE BIG PICTURE 

The large image box in the middle of the 
CoCo Max screen is actually only a win- 
dow on an even larger image. Use the 
Point-and Click "Hand" to effortlessly 
move your window over any portion of 
the larger image. You have a working 
area of up to 3 - V2 times the area of the 
window itself. 

FLEXIBLE PRINTING... 

CoCo Max gives you many ways to print. 
Fill a whole page with your image or 
condense two full CoCo screens to less 
than 1 /4 page for a finely detailed copy. 
"Dump" your CoCo Max screen full size 
or shrink it to Va page size. 



FREEDOM TO CREATE... 

Anyone who wants to create anything at 
all on their CoCo screen or printer will 
certainly be very glad to meet CoCo 
Max. CoCo Max's friendly yet 
sophisticated graphic and text 
capabilities let you almost instantly pro- 
duce illustrations, diagrams, charts, 





You may then use CoCo Max's graphic 
magic on it. The DS-69 is available as an 
option from Colorware from $149.95 
complete with its own software on disk 
or tape. Using the DS-69 with a disk re- 
quires an RS multi-pak adaptor. 



graphs, and computer art - tor serious 
use or just for creative tun. 



tion by using software schemes such as 
sliding windows. Although clever, these 
schemes yield sluggish and awkward 
results. Only CoCo Max does it the right 
way. The CoCo Max Hi-Res Input Unit 
plugs into your ROM slot and adds an 
entirely new joystick input to your com- 
puter - a precision one with a 49,152 
point resolution to match the CoCo 
screen exactly. 

Plug your same joystick, mouse or touch 




COCO MAX REQUIREMENTS 

The CoCo Max System includes the Hi- 
Res Input Unit, software on disk or 
cassette (please specify) and user manual. 
It will work on any 64K Extended or non- 




AN ABSOLUTE GUARANTEE 

CoCo Max is a hardware software system 
that no software-onlv system can 
matc h. Get CoCo Max and see your 
CoCo perform as it never could before. 
If vou don't agree that CoCo Max is the 
ultimate creative tool tor the Color Com- 
puter, simply return it within 20 clavs for 
a full, courteous refund from Colorware. 

THE HARDWARE... 

This is the kev to CoCo Max's unmatch- 
ed performance. Did vou know the nor- 
mal joystick input built into the Color 
Computer only allows access to 4,096 (64 
\ 64) points on theCoCo screen? Yet, the 
Color Computer's high resolution screen 



pad into this new input and you have a 
whole new kind of control. The dif- 
ference is remarkable. 





A DIGITIZER OPTION... 

We studied all the video digitizers 
available and picked the best of them to 
link with CoCo Max. The DS-69 from 
Micro Works was our choice. This op- 
tional device lets you capture the image 
from any video source (video recorder, 
camera, etc.) on your Color Computer. 



extended Color Computer. You'll need a 
Radio Shack or equivalent joystick, 
mouse or touch pad. Disk systems re- 
quire a Multi-Slot Interface or Y- 
Branching Cable. 

THE COMPLETE COCO MAX SYSTEM, 
with software on DISK $69.95 

with software on CASSETTE (Available 
Mar '85) $69.95 

Y-BRANCHING CABLE-W you have a disk 
system but do not have a Multi-Slot In- 
terface, use this economical 40-pin, 1 
male, 2 female cable to connect the 
CoCo Max Hi-Res input unit and your 
disk controller to your CoCo $27.95 

(Sorry, not compatible with J DOS) 
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has 49,152 (256 x 192) pixels. This means 
that a joystick, mouse or even a touch 
pad can, at best, only access about one 
tenth of the pixels on the CoCo screen. 

Most graphic programs ignore this hard- 
ware limitation of the Color Computer 
and give you only low-res control. 
Others attempt to overcome the limita- 




Colorware Inc. 
78-03G Jamaica Ave. 
Woodhaven, NY 11421 

(718) 647-2864 
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ORDERING INFORMATION 

ADD $3.00 PER ORDER FOR SHIPPING AND HANDLING. 
C.O.D.'S ADD $3.00 EXTRA. 

SHIPPING AND HANDLING FOR CANADA IS $5.00 
WE ACCEPT VISA, MASTER CARD, M.O.'S, CHECKS. 
N.Y. RESIDENTS MUST ADD SALES TAX. 



Halt Thief (continued) 

8,128,128,128,128,128,143,143,12 
8,128,143,143,143,143,175,175,14 
3,143,143,143,143,143,143,143,14 
3,143,143,143,143,143 

54 DATA175, 175, 143, 143, 143, 143,1 
28, 128,143,143,128,128,143,143, 
128,128,128,128,128,128,128,128, 
128,128,2 39,239,239,239,239,239, 
128,128,128,128,2 39,239,143,143, 
128, 128,143,143,128,128,143,14 3, 
143,143,175,175,143,143,143,143, 
128,128,255,255 

55 DATA128,128,159,159,128,128,2 
55,255,143,143,143,143,128,128,1 
43, 143, 128, 128 , 12, 143, 1 28 f 128,12 
8,128,2 39,239,143,143,128,128,12 
8,128, 128, 128,128,128,128,128,12 
8,128,128,128,128,128,128,128,14 
3, 14 3., 128, 128, 2 2, 14 3, 128, 128 , 255 
,255,239,239,143,143 

56 DATA143, 143, 143, 143, 143, 143,1 
59, 159, 143, 143, 143, 14 3, 128, 128, 1 
59,159,128,128,14 3,14 3,128,128,1 
2,14 3,128,128,128,128,128,128,12 
8,128,128,128,143,143,128,128,12 
8,128,128,128,143,143,128,128,12 
8,128,128,128,143,143.128,128,14 
3,143,143,143,5,1$,12§ 

57 DATA128, 159, 159, 128, 128, 175,1 
75,128,128,159,159, 128,128,175, 
175,128,128,159,159,128,128,207, 
207,128,128,52,143,143,14 3,143,1 
43,128,128,128,128,128,128,143,1 
43,128,128,128,128,128,128,143,1 
4 3,128, 128,128,128,128,128,143,1 
43,128,128,143,143 

58 DATA143, 143, 143, 143, 143, 143,1 
43,143,143,143,143,143, 143,143, 
143,143,143,143,143,14 3,14 3,143, 
143,143,143,143,143,143,128,128 
50 i ************************** * 

61 '* HALT THIEF II * 

62 ' * CASSETTE VERSION * 

63 '* (C) 1984 BY WADE JENSE * 
54 • *************************** 

65 R=RND ( -TIMER ) : POKE6 5470 , 0 : POK 
E65481,0:POKE65482,0 

66 CLS: PRINT" WELCOME TO HALT 
THIEF II" :GOSUB281:GOSUB273 

67 DIMDE ( 8 ) , DC ( 5 ) , MV$ ( 2 ) , MO ( 4 ) 

68 FORL= 1T05 : READDC ( L ) :NEXT 

69 F0RL=1T08 : READDE ( L ) : NEXT 

70 CLS : PRINT@ 2 30 , n HOW MANY PLAYE 
RS(2-6) " ; : INPUTP 

71 IFP>6THEN73 

72 IFP<2THEN74ELSE75 

73 PRINT@3 22 , "THERE IS A LIMIT 0 
F 6 PLAYERS" :GOTO70 

74 PRINTQ322,"THIS GAME REQUIRES 
2 PLAYERS" :GOTO70 

75 DIMN$(P) ,S(P) ,P$(P) ,AB(P) 

76 DIMMN ( P ) , CX$ ( 15 ) , CC$ ( P , 3 ) , NN ( 
P,8) 

77 TF=P+1:DIM Z ( TF ) , MK ( 10 ) , PO ( 10 
) 

78 DIMXY(P) 

79 FORL=lTOP:CLS 

80 PRINT@96, "LIMIT OF 3-8 CHARAC 
TERS PER NAME" 

81 PRINT@ 16 4 , " NAME # " ; L ; : INPUTN$ 
(L) 

82 AB=LEN(N$(L) ) :IFAB>8 OR AB<3 
THEN81 

83 NEXT 

84 RA=RND(P) : 3=1 : WW= 1 : PT=1 28 

85 FORL=lTOP:N=B+RA 

86 IF N>P THEN N=l+P-3 

87 N=l+P-B 

88 P$(N)=N$(B) :N$(B)=" M :B=B+1 



89 NEXT 

90 CLS:FORL=lTOP:READDN$:N$(L)=D 
N$+P$(L)+DN$ 

91 PRINTS 3 5 , " # " ; L ; " PLAYER IS ";N 
$(L) : READS ( L ) 

92 PRINTS 48 5 , "PRESS <C> TO CONT . 
* . 

93 I$=INKEY$ : IFI$="C"THEN94ELSE9 

3 

94 NEXT:CLS:PRINT@36, " EACH PLAYE 
R BEGINS WITH" 

95 PRINT@71, "$300 AND 3 CARDS":G 
OSUB247 

96 FORL=1TO500:NEXT 

97 CX$(l)="GO 3 EXTRA SPACES":CX 
$(2)="GO 4 EXTRA SPACES" 

98 CX$(3)="3 EXTRA CLUES " : CX$ ( 4 ) 
="4 EXTRA CLUES" 

99 CX$(5)="GO 5 EXTRA SPACES" :CX 
$(6)="5 EXTRA CLUES" 

100 CX$(7)="COLLECT $200 FROM BA 
NK" :CX$(8)=" COLLECT $100 FROM BA 
NK" 

101 CX$(9)="GO 6 EXTRA SPACES" :C 
X$(10)="6 EXTRA CLUES" 

102 CX$(11)="BUY A TIP-$100" :CX$ 
(12)="BUY A TIP-$50" 

103 CX$(13)="FREE TIP" : CX$ ( 14 ) = " 
TAKE ANOTHER TURN" 

104 FORLL=lTOP:CLS:PRINTP$(LL) :M 
N(LL)=300 

105 F0RL=1T03:RF=RND(CZ) :CC$(LL, 
L)=CX$(RF) 

106 PRINT" ("L") "CX$(RF): NEX 
T:PRINT@482, "PRESS <C> TO CONT." 

107 I$=INKEY$ : IFI$="C"THEN108ELS 
E107 

108 NEXT:GOSUB109:GOTO116 

109 RS=RND(4) :Z(TF)=RS:G0SUB193 

110 RG=RND(511) :PZ=RG+(29696+(DL 
*512) ) 

111 PA=PEEK(PZ) :TT=PZ 

112 IF PA=255 THEN TP=PZ ELSEl 10 

113 FORL=1TO10:PLAY"V31T135L204A 
BG05GBA" : NEXT: POKE ( 3018 3+ (DL*51 2 
) ) , 67: POKE ( 30184+ (DL*512) ) ,76:CL 
=67:CK=82 

114 F0RL=1T0P:Z(L)=RS:XY(L)=(297 
64+(DL*512) ) : NEXTL 

115 CS=0:RETURN 

116 GOSUB202 :GOSUB206 :G0SUB194 

117 II$=INKEY$:A=0:GOSUB244 

118 IFII$="N"THENA=1 ELSE IFII$= 
"T" THENA=2 

119 IFII$="E"THENA=3 ELSE IFII$= 
" V" THENA=4 

120 IFII$="S"THENA=5 ELSE IFII$= 
" Z "THENA=6 

121 IFII$="W"THENA=7 ELSE IFII$= 
"Q"THENA=8 

122 IFA>0THEN132 

123 IFII$="U"THEN138 ELSE IFII$= 
"A"THEN147 

124 IFII$="D"THEN138 ELSE IFII$= 
"R"GOSUB222 

125 IFII$="C"THEN167 ELSE IFII$= 
"F"THEN165 

126 IFII$="X"THENGOT0128ELSEIFII 
$="H"THEN295 

127 GOT0117 

128 G0SUB193:P0KEXY(WW) ,PT 

129 TL$=INKEY$:GOSUB244 

130 IFTL$="X"THENGOSUB280ELSE129 
:GOT0131 

131 GOSUB195:GOSUB203:GOTO117 

132 IFMV=0THEN231ELSESOUND31,2 

133 PH=XY(WW)+DE( A) : IFPH< ( 29696+ 



(DL*512)) OR PH>(30207+(DL*512) ) 
THEN135 

134 PP=PEEK(PH) :F0RLC=1T05:IFPP= 
DC(LC)THEN136 ELSE NEXT 

135 GOSUB245:GOT0117 

136 GOSUB246:MV=MV-l:POKEXY(WW) , 
PT:PT=PP:XY(WW)=PH 

137 GOSUB203:GOTO117 

138 IFMV=0THEN231 

139 IF PT=5 THEN 141 

140 GOSUB245:GOT0117 

141 IFII$="U"ANDZ(WW)=4THEN140 

142 IFII$="D"ANDZ(WW)=1THEN140 

143 POKEXY(WW) ,PT 

144 IFII$="U"THENZ(WW)=Z(WW)+1:X 
Y(WW)=XY(WW)+512 

145 IF II$="D" THEN Z(WW)=Z(WW)- 
1:XY(WW)=XY(WW)-512 

146 GOSUB246 :MV=MV-1 :G0SUB194:G0 
SUB203 :GOT0117 

147 PLAY"O3L2T10V31 ABABABABABAB" 

148 IFXY(WW)=TP OR ( XY ( WW) +1 ) =TP 
THEN151 

149 GOSUB245:MN(WW)=MN(WW)-100:M 
V=0 

150 PLAY"01V31T1C" :GOT0117 

151 POKEXY(WW) ,PT:IFZ(WW)OZ(TF) 
THEN149 ELSE FORL=lT03 : PLAY "02T6 
L3V31GP2GP2GA" : NEXTL 

152 RQ=RND( AZ ) : I FRQ=1THEN16 1 

153 PLAY "02V2 5T2 AGAGAGAGAG " :POKE 
6 5478, 0:POKE6 548 1,0:POKE6 5482,0 

154 CLS : PRINTS 136 , " CONGRATULATIO 
NS" 

155 PRINT@203,P$(WW) :PRINT@294, " 
YOU CAUGHT THE THIEF" 

156 MN(WW)=MN(WW)+RZ:IFMN(WW)>=M 
Z THEN159 

157 FORL=1TO600:NEXTL:CS=0 

158 GOSUB109 :GOSUB202 :GOSUB206 :G 
OT0117 

159 CLS:PRINT@136, "CONGRATULATIO 
NS" :PRINT@203,P$(WW) 

160 PRINT<§294, "YOU WON THE GAME" 
: INPUT" ANOTHER GAME [ Y/N ] " ; IN$ : I 
F IN$= " Y "THEN RUN 65- ELSE END 

161 FORL=1TO10:PLAY"V30T45L1GO4A 
CEG" : NEXT 

162 GOSUB192:FORLS=1TO5:GOSUB206 
: NEXT 

163 GOSUB194:GOSUB203:GOTO117 

164 GOSUB222 :GOT0117 

165 FORL=(30187+(DL*512) )TO(3020 
3+(DL*512) ) :POKEL, 14 3: NEXTL :CS=0 
:POKEXY(WW) ,PT:WW=WW+1 : IFWW>P TH 
EN WW=1 

166 GOSUB206:GOSUB280:GOSUB194:G 
OSUB202 :GOT0117 

167 IFCS=1THEN135ELSEPOKE65478,0 
:POKE65481 ,0:POKE6 5482,0 

168 CLS :F0RL=1T03: PRINT" ("L") 
"CC$(WW,D :NEXTL:POKEXY(WW) ,PT 

169 CS=0:PRINT"TO RETURN WITHOUT 
USING CARD <5>" 

170 INPUT"CARD # ( 1-3 ) " ; I Y : I FI Y< 1 
ORI Y>3THEN GOSUB 195 : GOSUB203 : GO 
T0117 

171 F0RLZ=1T014:IFCC$(WW,IY)=CX$ 
( LZ ) THEN ON LZ GOTO 177,176,182, 
181,175,180,184,185,174,179,186, 
187,188,191 

172 NEXT:GOTO170 

173 RF=RND(CZ) : CC$ ( WW, I Y ) =CX$ ( RF 
) :GOT0117 

174 ES=6:GOT0178 

175 ES=5:GOT0178 

176 ES=4:GOT0178 

177 ES=3 
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178 MV=MV+ES:GOSUB19 5:GOSUB203 :C 
S=l:GOT0173 

179 EC=6:GOT0183 

180 EC=5:GOT0183 

181 EC=4:G0T0183 

182 EC=3 

183 GOSUB193:FORLT=1TOEC:GOSUB20 
6 :NEXT:GOSUB194 : GOSUB203 : CS=1 : GO 
T0173 

184 CS=1 :MN(WW)=MN(WW)+200:GOSUB 
195 : GOSUB203 : IFMN ( WW) > MZ THENGO 
T0159ELSE173 

18 5 CS=1 :MN( WW) =MN ( WW) +100 : GOSUB 
195 :GOSUB203 : IFMN(WW) > MZ THENGO 
T0159ELSE173 

186 MN(WW)=MN(WW)-50 

187 MN(WW)=MN(WW)-50 

188 GOSUB193:PQ=PEEK(TP) 

189 POKETP,20:FORZL=1TO400:NEXTZ 
L:POKETP,PQ 

190 CS=1:GOSUB194:GOSUB203:GOTO1 
73 

191 GOSUB193:GOSUB206:GOSUB194:G 
OSUB202 :GOT0173 

192 IF Z(TF)=DL THEN RETURN 

193 DL=Z(TF) :GOT0196 

194 IFZ(WW)=DL THENRETURN 

195 DL=Z(WW) 

196 ' 

197 ON DL GOTO 198,199,200,201 

198 POKE65479,0:POKE65481,0:?OKE 
6 5482, 0:POKE6 5485, 0:POKE6 5487,0: 
POKE65489,0:RETURN 

199 POKE65478,0:POKE65480,0:POKE 
6 5483,0:POKE6 548 5,0:POKE6 548 7,0 : 
POKE65489,0 : RETURN 

200 POKE65479,0:POKE65480,0:POKE 
6 548 3,0:POKE6 548 5,0:POKE6 5487,0: 
POKE65489,0 : RETURN 

201 POKE65478,0:POKE65481,0:POKE 
65483,0:POKE6548 5,0:POKE6 548 7,0: 
POKE65489,0 : RETURN 

202 MV=RND ( DZ ) 

203 FORL=(30187+(DL*512) )TO(3020 
3+(DL*512) ) :POKEL, 143: NEXTL 

204 GOSUB254:GOSUB260:POKE(30196 
+(DL*512) ) ,100: POKE ( 3018 3+ (DL*51 
2) ) , CL: POKE ( 30184+ (DL*512) ) ,CK 

205 PT=PEEK(XY(WW) ) :POKEXY(WW) ,S 
(WW) : RETURN 

206 GOSUB192:MK(l)=TP-64:MK(2)=T 
P-60:MK(3)=TP+4 

207 MK(4)=TP+68:MK(5)=TP+64:MK(6 
)=TP+60 

208 MK(7)=TP-4:MK(8)=TP-68 

209 F0RL=1T08 

210 PO(L)=PEEK(MK(L) ) 

211 IFMK ( L ) =MM THEN PO(L)=128 

212 NEXT 

213 FORL=1TO8:XT(L)=0:NEXT 

214 F0RLL=1T03:F0RL=1T08 

215 IFP0(L)=12 OR PO(L)=5 THEN 2 
33 

216 IFPO(L)=DC'(LL)THENXT(L)=l 

217 IFPO(L)=S(WW)THENXT(L)=l 

218 NEXT : NEXT 

219 RA=RND ( 8 ) 

2 20 IFXT ( RA ) =1THENTP=MK ( RA ) ELSE2 
19 

221 MM=TT : TT=TP 

222 IFPO(RA)=255THEN223ELSE224 

223 F0RL=1T05:PLAY"V31T135L204AB 
G05GBA" : NEXTL : CL=67 : CK=82 :GOT02 3 
0 

224 IFPO(RA)=159THEN225ELSE226 

225 F0RL=1T02:PLAY"T55V31L201CDE 
FGAB02CDEFGAP1P1P1" : NEXTL : CL=8 3 : 
CK=80:GOTO230 

226 IFPO(RA)=175THEN227ELSE228 



227 PLAY"V9" : FORL=1TO20 : PLAY" V+O 
1T100L1D-" : NEXTL :CL=68 :CK=8 2 : GOT 
0230 

228 IFPO(RA)=50RPO(RA)=12THEN229 
ELSE222 

229 PLAY n V24T20L2CDEFGAB B :CL=69: 
CK = 76 

230 POKE(30183+(DL*512) ) ,CL:POKE 
( 30184+ (DL*512) ) ,CK: RETURN 

231 GOSUB245:FORLL=1TO10:POKE(30 
202+(DL*512) ) , 112 : POKE ( 30203+ (DL 
*512) ) ,112:FORL=1TO10 

232 NEXTL : POKE ( 30202+ (DL* 51 2) ) ,9 
6: POKE ( 30203+ (DL*512) ) ,96:NEXTLL 
:G0T0117 

233 I FMK ( L ) =MM THEN 216 

234 MM=TT : TT=TP 

235 RL=RND(3) :IFRL=10RRL=2THEN21 
6ELSETP=MK( L) 

236 PLAY n V24T20L2CDEFGAB" : POKE ( 3 
0183+(DL*512) ) ,69: POKE (30184+ (DL 
*512) ) ,76:CL=69:CK=76:PO(RA)=5 

237 IFZ(TF)=4THEN239 ELSE IFZ(TF 
)=1THEN240 

238 RC=RND(4) : I FRC<=2THEN2 39 ELS 
E 240 

239 Z (TP) =Z (TP) -1 :TP=TP-512 : FORL 
=1T0999 : NEXTL :G0SUB1 92 : RETURN 

240 Z(TF)=Z(TF)+l:TP=TP+512:FORL 
=1T0999 : NEXTL :GOSUB192 : RETURN 

241 DATA255,159,175,128,5 

242 DATA-32,-30,2,34,32,30,-2,-3 
4 

243 DATA@ ,0,^,30, , 31 , # , 35 , % , 37 , 
&,38 

244 POKE(30177+(DL*512) ) ,96:POKE 
(30178+(DL*512) ) ,127: RETURN 

245 POKE(30180+(DL*512) ) ,78:POKE 
(30181+(DL*512) ) ,79: RETURN 

246 POKE(30180+(DL*512) ) ,79:POKE 
( 30181+ ( DL*512 ) ) ,75: RETURN 

247 FOR LL=1T0P 

248 AB(LL)=LEN(P$(LL) ) 

249 FOR L=AB ( LL ) T01 STEP-1 

250 MM$=RIGHT$(P$(LL) ,L) 

251 NN(LL,L)=ASC(NM$) 

252 NEXT : NEXT 

253 RETURN 

254 NL=30194 

255 FOR L=1T0AB(WW) 

256 POKE(NL+(DL*512) ) ,NN(WW,L) 

257 NL=NL-1 

258 NEXT 

259 RETURN 

260 MV$=STR$(MV) :NL=30202 

261 FOR L=2T01 STEP-1 

262 NM$=RIGHT$(MV$,L) 

263 MV(L)=ASC(NM$) 

264 POKE(NL+(DL*512) ) , (MV(L)+64) 

265 NL=NL+1 : NEXT 

266 MN$=STR$(MN(WW) ) :NL=30197 

267 FOR L=4T01 STEP-1 

268 NM$=RIGHT$ ( MN$ , L ) 

269 MO(L)=ASC(NM$) 

270 POKE(NL+(DL*512) ) , (MO(L)+64) 

271 NL=NL+1 : NEXT 

272 RETURN 

273 CLS : PRINT@224 , "DIFFACULTY (1 
-4) 1=EASY, 4=HARD" ; : INPUTDA 

274 IF DAM OR DA<1 THEN 273 ELS 
E DB=INT ( DA ) 

275 ON DB GOTO 276,277,278,279 

276 CZ=14:AZ=5:DZ=12:MZ=2000 : RZ= 
800: RETURN 

277 CZ=12:AZ=4:DZ=10:MZ=2500:RZ= 
700: RETURN A 

278 CZ=10:AZ=3:DZ=8:MZ=3000:RZ=6 
00: RETURN 

279 CZ=6:AZ=2:DZ=6:MZ=3500:RZ=50 



0: RETURN 

280 FORL=(30187+(DL*512) )TO(3020 
3+(DL*512) ) :POKEL, 143: NEXTL :RETU 
RN 

281 PRINT : PRINT" — HELP 
TABLE — " 

282 PRINT"N-NORTH" : PRINT"T-NORTH 
EAST" 

283 PRINT" E-EAST" : PRINT" V-SOUTHE 
AST" 

284 PRINT"S-SOUTH" : PRINT" Z-SOUTH 
WEST" 

285 PRINT"W-WEST" : PRINT "Q-NORTHW 
EST" 

286 PRINT"U-UP" : PRINT " D-DOWN " 

287 PRINT : PRINT " PRESS ANY KEY 
TO CONTINUE" 

288 I$=INKEY$:IFI$=""THEN288 

289 CLS:PRINT" --HELP TABL 
E CONT. — " :PRINT 

290 PRINT" A-ARREST" : PRINT " R-REPE 
AT CLUE" 

291 PRINT"C-USE CARD" : PRINT"X-DI 
SPLAY THIEF'S LEVEL" 

292 PRINT" X -RETURN TO YOUR LEVEL 
" :PRINT"F-FINISH TURN" 

293 PRINT " H-HELP TABLE ": PRINT : PR 

INT" PRESS ANY KEY TO CONTINUE 
n 

294 I$=INKEY$:IFI$=""THEN294ELSE 
RETURN 

295 POKEXY(WW) , PT : GOSUB28 1 : GOSUB 
195:GOSUB203:GOTO173 

END 



y for the 

r TRS-80 

color computer 



Color -80 

PageWrifer 

EASY TO USE, LOW COST WORD 
PROCESSING, WITH 80 COLUMN 
TEXT WINDOW* FOR CASSETTE 
BASED 16K COLOR BASIC USER 
CASSETTE ONLY-. *18.95 



Color-80 

BASI-CALC 

mini spreadsheet 
program 

NEW LOW COST WAY FOR COCO 
USERS TO JOIN THE CALC CLUB 
15 X 10 ROWS/COLUMNS. I 
CASSETTE COLOR BASIC 1 
$18.95 I 



CHECK/MONEY ORDER + $2.00 SHIPPING 
N.Y. RES. ADD SALES TAX 



VMC 



_J SOFTWARE 
P.O. BOX 326 
CAMBRIA HTS.N.Y.II4II 
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GREAT COCO PRODUCTS 




MARK DATA DOES IT AGAIN! 
Just in time for the holiday season! 





The Greatest Hi-Res Graphic Arcade Game Ever Written for Your CoCo_ 

By Rob Shaw, Author of Tut's Tomb 
^Welcome Shock Trooper Squad Commander! 

Intelligence has intercepted a coded message 
revealing a plan to conquer Earth. 
\ Four of your Shocktroopers must 
] infiltrate the heavily defended under- 
f ground enemy base and steal all of 
their secret TRG-5 attack saucer 
sub-assemblies. Return them to our 
scientists for analysis. This secret 
information is crucial to o ur defense. 

Good Luck! 

Also: Presenting the Sixth and Most Challenging of our Adventures 

By Bob Withers and Steve O'Dea 





VORTEX 



FACTOR 




The Vortex Factor! What is it? What secrets does it 
hold? The seeker of treasures through time and space 
must find out! From the coliseum of ancient Rome to 
the futuristic world of tomorrow... 

Join us in an unforgettable ^ 
odyssey. | 



. Other Exciting Adventures in ^ 
Our Popular Series 

Calixto Island Shenanigans 
Sea Search Trekboer 
Black Sanctum 

All Games-Cassettes $24.95/ Discs $27.95 
32K required 




GREAT BARGAINS ON COCO DISC DRIVES! 

Single Drive (SSDD) in Dual Cabinet w/Controlier $299.95 

Additional Drive 89.95 

Two Drives (SSDD) in Dual Cabinet w/Controller 384.95 

Single Drive (DSDD) in Dual Cabinet w/Controller 359.95 

Additional Drive 129.95 

Two Drives (DSDD) in Dual Cabinet w/Controller 484.95 

Dual Cabinet/Power Supply 79.95 

Disc Controller (Radio Shack or J & M) 139.95 

Connecting Cable 24.95 

Radio Shack DOS ROM 1.1 or J/DOS w/Manual 39.95 




SaKata Color SC-100 

High Quality 13" monitor. 
Sharp, brilliant colors. 



QUALITY VIDEO MONITORS 

^% 

I$229.95| 

CG S Amber Screen vJVV^ii* 

12" 20 MHZ monitor 

with DELUXE TILT 2$119.9&C 




UNIVERSAL VIDEO DRIVER 

Carefully 
engineered to 
work with 
ALL color 
computers & 
ALL composite 
monitors. 

PURCHASED WITH A MONITOR $24.95 



PRINTERS 



Star Gemini SG-10 

New model for 1985 



■IL 




Only V 

$249.95^ 



SUPER PRO KEYBOARD 

Why pay more? The best is 
only $59.95*. 

♦Computers produced after approxi- 
mately Oct., 1982 require an additional 
plug adapter. Please add $3.95. 



COCO — UTIL 

Coco Util is a valuable utility program 
that allows you to transfer Color Com- 
puter disc files to your MS-DOS 
machine. Also transfer vLJ 
MS-DOS files to a ->^ v ^ 
Color Computer disc . $$29.95^ 
Great new utility. 



PCX-II 



We now offer IBM PC-XT 
compatible computer 
systems. Don't settle for a 
Tandy 1000 or other standard PC until 
you check our systems and prices. 
Starting at $865. 



NEED MORE 
MEMORY? 

64K Memory 
Expansion Kit 




ACCOUNTING SYSTEM 

Ideal for small businessman. 
Process income and expenses 
Prepare detailed re ports. 




ORDER ENTRY SYSTEM 

Enter orders, print shipping ^^^ Q c 
papers and invoices.* ^^tQft^^. 



EASY FILE DATA MANAGEMENT 

Keep track of your investments, com- 
puter magazines or record collection. 
♦All business programs require 32K, 
an 80-column printer ^-*"i> 
and one disc drive. 




SHIPPING: All orders under $1GJ please add $2 regular, $5 air. All orders over $100 please add 3% regular, 8% air. California residents please add 6% sales tax. Orders outside the continental 
U.S., check with us for shipping amount; please remit U.S. funds. Software authors— contact us for exciting program marketing details. We accept MasterCard and VISA. Distributed in 
Canada by Kelly Software. 




FREE — Send for our free catalog flier. 



Mark Data Products 



Circle Reader Service card #241 



Department H 



24001 ALICIA PKWY., NO. 207 • MISSION VIEJO, CA 92691 • (714) 768-1551 



MATHEMATICS 

by Wayne McArthur 



This program is available on our Instant CoCo cassette. 

the Instant CoCo ad elsewhere in this issue. 










y 



Mathematics Helper 

Take the confusion out of performing mathematical and geometric computations. 



Calculators are nifty devices that make 
mathematical computations easier. 
The trouble with calculators, even the ones 
with memories, is that it's easy to lose track 
of the numbers you're entering if you have to 
go through a series of steps to obtain an an- 
swer. That's especially true if you're trying 
to remember geometric formulas at the same 
time. With Mathematic Helper (see Listing), 
your CoCo becomes a calculator that 
prompts you for input and stores (for some 
calculations) the result of your last compu- 
tation on the screen for easy reference. It 
helps you with problem solving when you 
need to perform addition, subtraction, mul- 



tiplication, division, or square roots; raise 
numbers to a certain power; or do figuring 
for solid cubes, triangles, circles, cones, cyl- 
inders, solid rectangles, pyramids, or prisms. 
(Refer to Table 1 for an outline of program 
flow.) 

Using the Program 

In the opening screen, a blinking cursor 

System Requirements 

16K RAM 
Extended Color Basic 



marks the instructions. The first operation, 
addition, is highlighted in the line below, and 
another highlighted box at the bottom of the 
screen contains the result of the last opera- 
tion—zero when you first run the program. 
Use the right- and left-arrow keys to move 
through the list of operations until the one 
you want appears in the top highlighted box; 
then press the enter key to bring up the . 
screen for that operation. ' 

The first five operations are addition, sub- i 
traction, multiplication, division, and square ■ 
root. The program prompts you to input the 
values (only one value is required to compute 
a square root) and then displays the answer. ; 
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To carry the result of these equations from 
one to the other, type Y in response to the 
save-result prompt. 

The next operation, solid cube, requires 
only one entry: the length of one side. The 
program computes the cube's cubic contents 
and the square surface area. Although you 
can carry a result from a single-answer cal- 
culation (e.g., multiplication) into the solid- 
cube calculation, you cannot carry an an- 
swer from it to another problem because the 
program gives more than one result. The pro- 
gram displays the cubic contents as the an- 
swer in the last-result box. 

When you select the triangle function, the 
program asks whether it is a right triangle- 
one that has a 90-degree angle. For right tri- 
angles, you must enter at least two more 
items of information; for other triangles, you 
need at least three pieces of information. Use 
the up- and down-arrow keys to select an 
item; press the enter key to bring up the input 
prompt for your selection. When the program 
has sufficient data, it computes the values for 
vertical height, square area, base, hypoten- 
use, opposite side, and the three angles. Use 
the up and down arrows to move through the 
list and reveal the computed values. 

The power calculation involves three val- 
ues: the base (X), power (Y), and result (Z). 
When you submit two of the values, the pro- 
gram provides a result that you can transfer 
to certain other operations. If you supply X 
and Y, you must press the enter key to see 
the computed value of Z. 

For circles, you only need to submit one item 
of information: the radius, diameter, circumfer- 
ence, or square area. The program calculates 
the other values from the one submitted and 
also figures the surface and cubic contents for 



Line Function 

10-40 Reads function titles A$(l) to 
A$(14) into memory and as- 
signs value of PI. 
50-80 Sets up the menu page. 
90-120 Function Choices 
130 Addition 
140 Subtraction 
150 Multiplication 
160 Division 
170 Square Root 
180-200 Cube 

210-230 Enters X and Y values for 

some operations. 
240-250 Allows user to save result or 

dispense with it. 
260-330 Sets up screen for a triangle; 

asks if angle C is 90 degrees. 
340-390 Allows choice of entering or 

reading data about a triangle. 
400-550 Calculates values entered for 

right triangles. 
560-660 Calculates values entered for 

triangles that are not right tri- 
angles. 

Table 1 . Program Flow 

a sphere with the given dimensions. 

By supplying the base circumference and 
slant height of a cone, you can find its lateral 
area; with the base and vertical height, you 
can find the cubic contents. Entering the 
height and circumference of a cylinder gives 
you the lateral area and cubic contents; en- 
tering the length, width, and height of a solid 
rectangle yields its square area and cubic 
contents. 

The perimeter of the base and slant height 



Program Listing. Mathematic Helper 

10 DIMA$(14) :F0RA=1T014:READA$(A 
) : NEXT: B$=CHR$( 128) :A=1 
20 PI=3. 14159265 

30 DAT A ADDITION , SUBTRACTION , MULT 
I PLICATION , DIVISION , SQUARE ROOT, 
SOLID CUBE 

40 DATATRIANGLE, POWER, CIRCLES, CO 
NE, CYLINDER, SOLID RECTANGLE , PYRA 
MID, PRISM 

50 CLS0:PRINT(a7,"mathematic"B$"h 
elper " ; 

60 PRINT@65, "use"B$"arrows"B$"fo 
r "B$" function "B$" choice" ; 
70 GOSUB1230 

80 PRINTS 106, "then" B$" enter " ; : PR 
INT@128,A$(A) 

90 Z$=INKEY$:IFZ$=""THENFORF=134 
T0137STEP3:PRINT@64,CHR$(F) ; : PLA 
Y"P50" :NEXT:GOTO90 

100 IFZ$=CHR$(08)THENA=A-1ELSEIF 

Z$=CHR$ ( 09 ) THENA=A+1 

110 IFA> 1 4THENA=1ELSEI FA<1THENA= 

14 

120 IFZ$=CHR$(13)THEN130ELSEPRIN 
T@128,A$(A) :GOTO90 

130 IFA=1GOSUB210:Q=X+Y:PRINTQ:G 
OTO240ELSE140 
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140 IFA=2GOSUB210:Q=X-Y:PRINTQ:G 
OTO240ELSE150 

150 IFA=3GOSUB210:Q=X*Y:PRINTQ:G 
OTO240ELSE160 

160 IFA=4GOSUB210: I FY=0THEN50ELS 

EQ=X/Y : PRINTQ : GOTO240ELSE170 

170 IFA=5THENS=1:GOSUB210:Q=SQR( 

X) :PRINTQ:GOTO240ELSE180 

180 IFAX6THEN260ELSES = 1:GOSUB21 

0 

190 PRINT@288, "cubic"B$"contents 
" ; :Q=X~3:PRINTQ 

200 PRINT"sq"B$"surface"B$"area" 
(X*X)*6:GOTO1220 

210 PRINT@224 , "enter" : IFXX0THEN 

PRINT"x?"X:GOTO230 

220 INPUT"x";X$:X=VAL(X$) 

230 IFS=1THENS=0:PRINT@320, " ="; 

: RETURN ELSEINPUT"y" ;Y$: Y=VAL( Y$ 

) :PRINT@320, " ="; : RETURN 

240 PRINT@352, " save"B$ " result y- 

n "; :Z$=INKEY$:IFZ$="Y"THENX=Q E 

LSEIFZ$="N"THENX=0ELSE2 40 

250 GOTO50 

260 IFA>7THEN710ELSEZ=0:CLS0:D=3 
3 

270 F$(0)="vertical"+B$+"neight" 
: F$ ( 1 )=" square "+B$+" area" : F$ ( 2)= 
"base" :F$( 3)=" hypotenuse" :F$(4)= 
"opposite" :F$(5)="angle"+B$+"a" : 
F$(6)="angle"+B$+"b" : F$ ( 7 ) ="angl 
e"+B$+"c" 



67O-700 Calculates angles from previ- 
ously entered information and 
changes them to radians for 
other figuring. 

710-790 Calculations for powers 

800-920 Uses input information to 
supply you with unknown 
values for the circle. 

930-990 Computes surface area and 
cubic contents. 
1000-1040 Calculates area and cubic 

contents of a cylinder. 
1050-1080 Calculations for a solid rec- 
tangle 

1090- 1 1 50 Calculations for a pyramid 
1 160- 12 10 Calculations for a prism 

1220 Pause that allows the user to 

look over the results of some 

functions. 
1230 Lets you see the last result 

from single-answer functions. 
1240 Changes string input ($) to a 

numeric expression for some 

functions. 



for a pyramid allow you to figure the lateral 
area; the perimeter, area of the base, and ver- 
tical height give you the cubic contents. You 
can compute the lateral area of a prism if you 
know the perimeter of the base and the height, 
or the cubic contents if you know the area of 
the base and the height. ■ 

Address correspondence to Wayne Mc- 
Arthur, 1105-204 Fairmont Drive, Saskatoon, 
Saskatchewan, Canada S7M 4P5. 



280 PRINT@93, "b" ; : FORQ=125T038 IS 
TEP32:PRINT@Q, "0" ; : NEXT : PRINTS 4 1 
3, "c" ; : FORQ=412TO404STEP-1 : PRINT 
@Q, " B" ; : NEXT 

290 FORQ=124T0373STEP31 :PRINT@Q, 
"H" ; : NEXT: PRINTS 403, "a" ; 
300 PRINTS 4 18 , " ANGLE c = 90 DEGR 
EES? <YXN>" ; : PRINT@418 , STRING$ ( 
30, B$) ; :R$=INKEY$:IFR$=""THEN300 
310 PRINT@0, "use"B$"arrows"B$"to 
"B$"move"B$"up"B$"or "B$"down" ; 
320 PRINT@480, "PRESS"B$"enter"B$ 
"<OR>"B$"n"B$"FOR"B$"NEW"B$"SET" 

330 FORS=0TO7:D=D+32:PRINT@D-1,F 
$(S) , :NEXT:D=6 5:IFR$="Y"ORR$="N" 
THEN340ELSED=33 : GOTO 3 00 
340 Z$=INKEY$: IFZ$=" "THEN340ELSE 
PRINT@D-1,F$(Z) , 

350 IFZ$=CHR$(13)THENPRINT@416,F 
$( Z ) , : INPUTIN$: IN=VAL(IN$) : PRINT 
@416,STRING$(32,B$) ; :GOSUB400 
360 IFZ$="N"THENFORZ=0TO7 : A( Z )=0 
:NEXT:A=7:GOTO50 

370 IFZ$=CHR$(94)ANDZ>=1THEND=D- 
32:Z=Z-1 

380 IFZ$=CHR$(10)ANDZ<=6THEND=D+ 
32:Z=Z+1 

390 PRINT@D-1, ">" ;A(Z) , :GOTO340 
400 A(Z)=IN:IFR$="Y"THENA(7)=90E 
LSE560 

410 IFA(5)>=90ORA(6)>=90THENA(Z) 



420 IFA(0)>0THENA(4)=A(0)ELSEA(0 
)=A(4) 

430 IFA(2)>0THENIFA(0)=A(2)THENA 
(5)=45:A(6)=45 

440 IFA(0)>0ANDA(2)>0THENA(1)=(A 

(2)*A(0) )/2:A(3)=SQR( (A(2)*A(2) ) 

+(A(0)*A(0) ) ) :AA=A(0)/A(2) :A(5)= 

ATN(AA)*57. 29577951 

450 GOSUB680:IFA(0)>0ANDA(1)>0TH 

ENA(2)=(2*A(1) )/A(0) 

460 IFA(1)>0ANDA(2)>0THENA(0)=(2 

*A(1) )/A(2) 

470 IFA( 3 ) >0ANDA( 6 ) >0THENA( 4 ) =A( 
3)*C0S(B) 

480 IFA(3)>0ANDA(5)>0THENA(4)=A( 
3)*SIN(A) 

490 I FA ( 0 ) >0ANDA ( 5 ) >0THENA ( 3 ) =A ( 
0)/SIN(A) 

500 IFA(2)>0ANDA(5)>0THENA(3)=A( 
2) /COS (A) 

510 IFA(2)>0ANDA(3)>0THENA(0)=SQ 
R( (A(3)*A(3) )-(A(2)*A(2) ) ) 

520 IFA(0)>0ANDA(3)>0THENA(2)=SQ 

R((A(3)*A(3))-(A(0)*A(0))) 

530 IFA(6)>0ANDA(0)>0THENA(3)=A( 

0)/COS(B) 

540 IFA(5)=45THENA(0)=SQR(A(1)+A 
( 1 ) ) 

550 T=T+1:IFT<4THENGOTO420ELSET= 
0 : RETURN 
560 GOSUB670 

570 IFA(2)>0ANDA(3)>0ANDA(5)>0TH 

ENA(4)=SQR( (A(2)*A(2)+A(3)*A(3) ) 

-2*(A(2)*A(3)*COS(A) ) ) 

580 IFA(4)>0ANDA(3)>0ANDA(6)>0TH 

ENA(2)=SQR( (A(4)*A(4)+A(3)*A(3) ) 

-2*(A(4)*A(3)*COS(B) ) ) 

590 IFA(4)>0ANDA(2)>0ANDA(7)>0TH 

ENA(3)=SQR( (A(4)*A(4)+A(2)*A(2) ) 

-2*(A(4)*A(2)*COS(C) ) ) 

600 IFA(4)>0ANDA(6)>0ANDA(5)>0TH 

ENA(2)=(A(4)*SIN(B) )/SIN(A) 

610 IFA(4)>0ANDA(7)>0ANDA(5)>0TH 

ENA(3)=(A(4)*SIN(C) )/SIN(A) 

620 IFA(5)>0ANDA(6)>0ANDA(3)>0TH 

ENA(4)=(A(3)*SIN(A) )/SIN(C) :A(2) 

=(A(3)*SIN(B) )/SIN(C) 

630 IFA(4)>0ANDA(2)>0ANDA(7)>0TH 

ENP=.5*(180-A(7) ) :P=P/57. 2957795 

1:P=TAN(P) :N=((A(4)-A(2))/(A(4)+ 

A(2) ) )*P:N=ATN(N) :P=ATN(P) :P=P*5 

7. 29577951 :N=N*57. 29577951 :A( 5)= 

P+N:A(6)=P-N 

•640 IFA( 2 ) >0ANDA( 3 ) >0ANDA( 4 ) >0TH 
ENAA= ( ( ( A ( 2 ) *A ( 2 ) ) + ( A ( 3 ) *A ( 3 ) ) ) — 
(A(4)*A(4) ) )/(2*(A(2)*A(3) ) ) :SB= 
A(3)*AA:SA=SQR( (A(3)*A(3) )-(SB*S 
B) ) :A(5)=SA/SB:A(5)=ATN(A(5) )*57 
.29577951 

650 IFA(2)>0ANDSB>0ANDSA>0ANDA(7 
) =0THENSB=A ( 2 ) -SB : A ( 7 ) =SA/SB : A ( 7 
)=ATN(A(7) )*57. 29577951 
660 IFA ( 2 ) >0ANDSA>0THENA ( 0 ) =SA : A 
(1)=(A(2)*A(0) )/2 

670 IFA(5)>0ANDA(6)>0THENA(7)=18 
0-(A(5)+A(6) ) 

680 IFA(6)>0ANDA(7)>0THENA(5)=18 
0-(A(6)+A(7) ) 

690 IFA(5)>0ANDA(7)>0THENA(6)=18 
0-(A(5)+A(7)) 

700 A=A( 5 )/57. 29577951 :B=A( 6 )/57 
. 29577951 :C=A( 7 )/57. 29577951: RET 
URN 

710 IFA>8THEN800ELSECLS0:PRINT@1 
00,"x=BASE y=POWER Z=RESULT"; 
720 PRINT@160,"if " B$"value"B$"un 
known "B$ "press "B$ " <ENTER> " B$B$ ; : 
GOSUB1230 :GOSUB2 10: PRINTS 320, "z" 
; :INPUTZ$:Z=VAL(Z$) 




730 IFX>0ANDY>0THENZ=X~Y:Q=Z:GOT 
0790 

740 IFX>0ANDZ>0THENY=LOG(Z)/LOG( 
X) :Q=Y:GOTO790 

750 IFY<10THENT=1000ELSET=10 
760 PRINT"PRESS KEY WHEN CALCULA 
TION ENDS!"; 

770 Q=X~Y:IFQ<Z THENX=X+T ELSEIF 
Q>Z THENX=X-(T) :T=T*. 1 
780 PRINT@258,X, : S$=INKEY$ : IFS$= 
" "THEN770ELSEQ=X 

790 PRINTG256, " x"X : PRINT"y " Y : PRI 
NT" z" Z : PRINT :GOTO240 
800 IFA>9THEN930ELSECLS0:PRINT@4 
3 , "circles" ; 

810 PRINT@97, "press"B$"enter"B$" 
if " B$" value "B$ "unknown" ; 
820 PRINT@160, ; 

8 30 INPUT" radius" ; X$ : GOSUBl 240 : I 
FX>0THEN890 

840 INPUT"diameter";Y$:GOSUB 124 
0 

850 IFY>0THENX=Y/2:GOTO890 

860 INPUT" circumference" ;Z$ :GOSU 

B1240 

870 IFZ>0THENX=Z/(2*PI) :GOTO890 

880 INPUT" area ";SA$:SA=VAL(SA$) : 

IFSA>0THENX=SQR(SA/PI ) 

890 Y=2*X:Z=PI*Y:SA=PI*(X*X) 

900 PRINTG160, "radius"X:PRINT"di 

ameter "Y: PRINT" circumf erence" Z :P 

RINT" square "B$" area "SA 

910 PRINT"sphere"B$"surface"B$"a 

rea" : PRINTX*X* ( 4*PI ) 

920 PRINT"sphere"B$"cubical"B$"c 

on tents" :PRINTX~3*( (4*PI)/3) :GOT 

01220 

930 IFA>10THEN1000ELSECLS0 

940 PRINTG44, "cones" ; 

950 PRINT@96, "base"B$"circumf ere 

nee" : INPUTX$ 

960 PRINT"slant"B$"height" :INPUT 
Y$ 

970 PRINT"vertical"B$"height" :IN 
PUTZ$:GOSUB1240 

980 PRINT"lateral"B$"area" (Y*X)/ 
2: PRINT 

990 PRINT" cubical "B$" contents" ; : 
RA=X/(2*PI) : AR=PI*(RA*RA) : PRINT ( 
AR*Z)/3:GOTO1220 

1000 IFA>11THEN1050ELSECLS0:PRIN 
T@42, "cylinders" ; 

1010 PRINT@128, "height"; :INPUTX$ 
1020 PRINT: INPUT"circumf erence" ; 
Y$:GOSUB1240 

1030 PRINT:PRINT"lateral"B$"area 
"X*Y 

1040 PRINT:PRINT"cubical"B$"cont 

ents" ; :RA=Y/(2*PI) : AR=PI * ( RA*RA ) 

: PRINTAR*X : GOTO1220. 

1050 IFA>12THEN1090ELSECLS0:PRIN 

T@43, "rectangles" ; 

1060 PRINTS 128, ; : INPUT" length "; X 



$ : INPUT" width " ; Y$ : INPUT" he ight " ; 
Z$:GOSUB1240 

1070 PRINT"square"B$"area"2*( (X* 
Z)+(Y*Z)+(X*Y) ) 

1080 PRINT" cubical "B$" contents "X 
*Y*Z:GOTO1220 

1090 IFA>13THEN1160ELSECLS0:PRIN 
T@44, "pyramids" ; 

1100 PRINT@128, "perimeter"B$"of " 

B$"base" ; : INPUTX$ 

1110 PRINT" slant "B$" height " ; : INP 

UTY$ 

1120 PRINT" ar ea " B$ " of "B$" base"; : 

INPUTZ$:GOSUB1240 

1130 PRINT" vertical"B$" height " ; • 

INPUTVH$ : VH=VAL ( VH$ ) 

1140 PRINT" lateral "B$ "area " (X*Y) 
/2 

1150 PRINT"cubical"B$"contents" ( 

Z*VH)/3:GOTO1220 

1160 CLS0:PRINT§44, "prisms"; 

1170 PRINTG192, "perimeter"B$"of " 

B$"base" ; : INPUTX$ 

1180 PRINT" area " B$ " of "B$" base"; • 

INPUTY$ 

1190 INPUT"height" ; Z$ : GOSUBl 240 
1200 PRINT"lateral"B$"area"X*Z 
1210 PRINT"cubical"B$"contents"Y 
*Z 

1220 PRINT@416, "press"B$"enter"B 
$" to "B$" continue" ; : INPUTX$ : X=VAL 
(X$) :GOTO50 

1230 PRINT@448,"last"B$"result"B 
$"was" ; : PRINTS 480, Q, : RETURN 
1240 X=VAL(X$) :Y=VAL(Y$) :Z=VAL(Z 
$ ) : RETURN END 
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This program is available on our Instant CoCo cassette. 
See the Instant CoCo ad elsewhere in this issue. 



HOME 

by Delbert A. Baker 





inding Firewood 
Best-Buys 

Calculate the most economical 
way to fill your woodshed. 





ne day 
in Oc- 
tober 1982, a 
friend asked if I'd 
like to buy pine fire- 
wood at $60 per cord, 
cut and delivered. I bought 
two cords and split and 
stacked it. But as I burned it to 
keep warm that winter I kept won- 
dering if I had made a good deal. 
I reasoned that my CoCo should be able to 
do the calculations and store the necessary 
data with ease. However, before I could write 
equations for the program, I had to decide 
what kind of comparison would help me 
make a quick decision about which 
firewood to purchase. I 
wanted to be able to look 
through the classifieds 
and compare the woods of- 
fered to oak, which was sell- 
ing for $70 to $75 (cut and 
delivered), and determine 
whether they were a good value 
in heat content per dollar. 

How the Program Works 

I wrote an equation that would 
make the comparison and return an 
answer in cost per cord as if I had 
spent the same amount of money on 
oak. For example, if I were offered 
wood with half the heat content of oak, 
the program would tell me that the 
equivalent price for a cord of oak was 
twice the price of the wood in ques- 
tion. I could then check the newspaper 
to find out the prevailing cost for a 

System Requirements 

16K RAM 
led Color 




cord of oak. If tr 
price of oak were 
higher than the calculated 
price of the other wood, then 
the other wood would be a good 
deal, comparatively. If it were lower, 
it wouldn't be such a bargain. 
Research at the local library yielded the 
total heat value per cord of several kinds of 
wood and the heat value of several nonwood 
fuels. (See Table 1 for a short bibliography on 
wood heat.) I used this information to pro- 
duce a program with five options: 

1 Calculation 

2 Available Wood Data 

3 Explanation 

4 Nonwood Conversion 

5 Quit 

Option 1 performs the calculation 
lows you to compare the price of a certain 
wood to the prevailing cost of oak. Option 2 
displays the heat content (in millions of 
BTUs per cord) of all the types of wood for 
which I could find data. You must type in the 
name of the wood exactly as it appears in the 
DATA statements; otherwise you receive a 
message that reads, "I do not have that wood 
data." Option 3 explains the meaning of the 
calculation in option 1. 

Option 4 displays the nonwood-fuel data 
and prompts you to select one of the items. 
It then asks you which wood you wish to 
compare. The result given is the amount of 
the nonwood source that replaces one cord 
of the chosen wood if both are burned at 100- 
percent efficiency. 

To make true comparisons, you need the 
efficiency ratings of the respective heating 
units— e.g., a wood stove and an oil furnace. 
If the stove is 50-percent efficient and the fur- 
nace is 75-percent efficient, multiply the 
wood amount by .5 and the nonwood 
amount by .75 to find out how much heat is 
delivered. Compare the prices to decide 
which fuel is most economical. You could 
also use this option to compare operating 
costs before installing a heating system. 

A word of caution: The program evaluates 
natural products that are highly variable in 
their properties. Consequently, the calcu- 
lated results are approximate. Furthermore, 
the program does not take all factors into ac- 
count; you must decide what value to attach 
to such things as delivery, splitting, and 
stacking. 

Program Structure 

Lines 100-620 contain the main program, 



Index to Advertisers 



Reader Service No. Page No. Reader Service No. Page No. Reader Service No. Page No. 



107 AArdvark Software ... .71 
322 A.S.C 69 

138 B-5 Software 80 

335 Cer-Comp 10,11 

405 Challenger Software ... .61 

343 Cinsoft 60 

75 CoCo Devices 65 

121 Cognitec 23 

* Colorware 40,41 

11 The Computer Center ... 22 

18 Computer Plus CIII 

506 Computer Systems 

Center 19 

223 Computer Systems 

Consultants 31 

225 D + A Research 59 

213 Data-Comp 67 

243 Deft Systems 2 

209 Dorsett Educational 

Systems 77 

* D.P.Johnson 54 



216 E.A.P 31 

135 E.D.C 73 

494 Electronic Motion Control 58 

25 Four Star Software 66 

309 Group Technology Ltd. 

71 

440 HJL Products CIV 

* HOT CoCo 

HOT CoCo Subscriptions ... 33 

Instant CoCo 56,57 

Toll Free # 52 

91 Incentive Software 26 

101 J&MSystems 4 

15 JTJ Enterprises 62 

120 LoredecCorp 47 

241 Mark Data 44 

305 Mathegraphics Software ... 59 

196 Micro Works. . . 29,75 

106 MICROCOM Software 7 

337 Nibble Notch Computer 

Products 25 



320 Parsons Software 52 

214 PBJ,Inc 21 

124 Perry Computers 15 

153 Polygon Computers .... 58 

222 Professor Jones 27 

70 Saguaro Software 79 

119 Spectral Associates 

25, 27 

28 Software Connection 51 

144 Sugar Software 62 

456 Sunlock Systems 32 

12 Sunrise Software 8 

236 T & D Subscription 32 

386 TCE Programs CII, 1 

194 Tothian Software 61 

277 Triad Pictures 36 

93 True Data Products 16, 17 

30 VMC 43 

301 Wasatch ware 51 

175 White House Computer 28 



Advertising Offices: (603) 924-7138 or (800) 441-4403 
*This advertiser prefers to be contacted directly. For further information from our advertisers, please use the reader service card. 



Pick of the Month Coming Next Monti) 



The first question on our Reader Service card adjacent to this page 
asks you to pick your favorite article or feature in this issue. Write 
the appropriate letter from the list below in the space provided on 
the card. 



A. Doctor ASCII Esposito and Ramhoff, p. 12 

B. Mindbusters, Ramella, p. 14 

C. The Computer Room, Norman, p. 18 

D. Directory Assistance, Bonnell, p. 30 

E. Mail It with Telewriter -64, German, p. 34 

F. Halt Thief, Jense, p. 37 

G. Mathematics Helper, Mc Arthur, p. 45 

H. Finding Firewood Best Buys, Baker, p. 48 

I. Math Invasion, Clift, p. 53 

J. Parallel Processing with Color Logo, Meredith, p. 55 

K. Linked Lists, Bauder, p. 63 

L. Tame Your Reset Button, Gault, p. 68 

M. Teacher Helpers, Wood, p. 70 

N. 6809 On Line, Ballard, p. 72 

0. Assembly 101, Perotti and Perotti, p. 74 

P. The Learning Page, Kipperman, p. 76 

Q. Product News, Finnie, p. 78 




Believe it or not, the Christmas buying season is almost upon 
us. Do you know what to get for your CoCo-using friends and 
relatives? HOT CoCo's December issue provides the shopping ad- 
vice you need. Richard Esposito, author of our popular Doctor 
ASCII column, gives you his best bets for Christmas gifts. And our 
editors have thought long and hard about what they would like to 
see under the tree. Read about their picks next month. 

OS-9: That's a word you've seen a lot lately. OS-9 is Tandy's disk 
operating system (DOS) of the future for the CoCo. Next month, 
OS-9 expert Brian Lantz answers some of the most-often asked 
questions about this up-and-coming DOS. 

Ever left your CoCo or disk drive on all night, or longer, without 
realizing it? Mark Haverstock shows you how to install power-in- 
dicator LEDs on both these items in December. The same article 
tells you how to move the on/off and reset buttons from the rear to 
the front of the CoCo. 

We have much more for December. So pick up a copy of HOT 
CoCo next month and enjoy! ■ 
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including the menu, subroutine directions, 
and the wood data. Lines 630-890 control 
option 1. Line 640 prompts for a wood type; 
lines 660-690 search for a data match. If a 
match is not found, control passes to lines 
910-960. The data is restored, the no-match 
message is displayed, and the program asks 
you if you want to see all the wood types 
available. If you elect to see the data, control 
passes to the subroutine in option 2. If a 
match is found during the search, the pro- 
gram jumps to lines 710-890, where you in- 
put an asking price and confirm it. The 
calculation is performed in lines 760-780; 
the results are reported by lines 840-870. 

Lines 980-1130 are the data-display rou- 
tine. The program displays the data in 
screens of 12 lines until it reaches STOP, 

0000. You then return to the main menu. 
Lines 1150-1420 contain a short explana- 
tion of the result of the calculation in option 

1. Delete this section if you wish to conserve 
memory. 

Lines 1440-1990 control option 4. Lines 
1440-1460 set the data pointer to the first 
entry of the nonwood data. Line 1470 reads 
the nonwood data and stores it in an array. 
Lines 1490-1590 display the nonwood data, 
ask you to enter the wood type that you 
want, and check your input. When you con- 
firm your selection, control passes to lines 
1600-1640. After you submit the wood type, 
the wood data is retrieved from the DATA 
lines. Line 1650 makes the comparison cal- 
culation and adjusts the result to read in 
whole numbers for nonwood materials mea- 
sured in tons. Line 1660 adjusts the calcula- 
tion result to two decimal places for nonwood 



materials measured in tons. Lines 1670- 
1740 display the results of the calculation. 
Lines 1810-1940 provide a short explana- 
tion of option 4. Lines 1960-1990 offer the 
option 2 data display if an invalid wood type 
is entered in line 1600. 

Modifying the Program 

If oak is not a common firewood in your 
area, you might want to choose another stan- 
dard for comparison. Select a wood that is 
widely enough used that the price does not 
vary between suppliers. 

If, for example, you live in an area where 
maple is the standard and you know (or find 
out) that it is all from one of the hard species 
like sugar maple, list lines 470-570 to find the 
data entry for hard maple. Substitute the ba- 
sic heat value for hard maple (24,000) in the 
equation, X = 25,000, in line 760. Edit line 
820, deleting "oak" and replacing it with 
"hard maple." The program will then use ma- 
ple as the standard for comparison. You might 
also want to change the explanatory subrou- 
tine (option 3) to reflect your modification. 

You can add another kind of wood or non- 
wood fuel to option 2. To add a wood source, 
you must know the total heat value of a cord 
of that wood in thousands of BTUs. (If the 
value is given in millions of BTUs, move the 
decimal point three places to right: 26.5 mil- 
lion BTUs equal 26,500 thousand BTUs.) In- 
sert your data pair— wood, BTUs— in the 
DATA statements anywhere before the stop. 
If you insert it after this marker, your data 
will be treated as nonwood data. 

The nonwood data is organized in sets of 



three. The first item is the fuel source, the 
second is the heat value in thousands of 
BTUs per chosen unit, and the third is the 
unit used to figure the total heat value. For 
example, kerosene has a total heat value of 
135,000 BTUs per gallon, so the data for ker- 
osene would read, "KEROSENE, 135,gallon". 
You can place nonwood data anywhere be- 
tween the stop entry for wood and the stop 
entry for nonwood (XXXX,00,XX). Keep in 
mind that placement of the new data deter- 
mines where it will be displayed by line 
1510. In addition, you have to allow for in- 
creases in the number of nonwood sources in 
lines 310, 1470, 1500, and 1520-1550. 

As written, the program uses about 6,600 
bytes. To run the program in Color Basic, 
change the LINE INPUT statement in line 640 
to an INPUT statement. Be careful when typing 
in the program and answering the prompts— I 
have included only minimal error checking. If 
you have problems with the program, please 
write to me, enclosing a self-addressed, 
stamped envelope for my reply. ■ 
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Program Listing. Firewood 

110 REM FIREWOOD COST PROGRAM 
120 REM D. BAKER 1983 
130 REM TRS-80 COLOR COMPUTER 
140 REM 

150 REM Q,Q$=USER RESPONSES 
160 REM W$=INPUT, WOOD TYPE 
170 REM P=INPUT, WOOD PRICE 
180 REM N$=DATA , WOOD TYPE 
190 REM H=DATA , HEAT VALUE 
200 REM X=HEAT VALUE OF OAK 
210 REM C= CALCULATED WOOD COST 
220 REM E=HEAT IN KILOWATT HOUR 
S 

230 REM G=HEAT IN CUBIC FEET OF 

NATURAL GAS 
240 REM A$(L)=DATA, NON-WOOD SO 
URCE 

250 REM R(L)=DATA, NON-WOOD SOUR 
CE 

260 REM U$(L)=DATA, NON-WOOD SO 
URCE 

270 REM V= CALCULATED NON-WOOD Q 
UANTITY 

280 REM Y=FOR-NEXT VARIABLE 
290 REM 

300 P=0: H = 0: C=0: E=0 : G=0 
310 DIMA$(12) ,R(12) ,U$(12) 
320 CLS 

330 PRINT TABQ3) "MENU": PRINT 
340 PRINT "1 CALCULATION": PRI 



NT 

350 PRINT "2 AVAILABLE WOOD DA 
TA" : PRINT 

360 PRINT "3 EXPLANATION" :PRIN 
T 

370 PRINT "4 NON-WOOD CONVERSI 
ON" :PRINT 

380 PRINT "5 QUIT":PRINT 

390 INPUT "WHICH DO YOU WANT" ;Q 

400 IF Q<1 OR Q>5 GOTO 320 

410 IF Q=5 THEN 460 ELSE 420 

420 ON Q GOSUB 6 30,980,1150, 144 

0 

430 PRINT "ENTER <M> FOR THE MEN 
U" 

440 INPUT "PRESS <ENTER> IF FINI 
SHED" ;Q$ 

450 IF Q$="M" THEN 320 

460 PRINT "GOODBYE FOR NOW" 

470 DATA APPLE, 26500, BLACK ASH 

,19100, WHITE ASH, 23600 

480 DATA ASPEN, 14700, BASSWOOD, 

13500, BEECH, 24000 

490 DATA PAPER BIRCH, 20300, YEL 

LOW BIRCH, 23600, BOXELDER, 1790 

0 

500 DATA CEDAR, 12200, CHERRY, 2 

0000, COTTONWOOD, 13500 

510 DATA ELM, 19500, FIR, 14300, 

HACKBERRY, 20800 
520 DATA HEMLOCK, 15900, HICKORY 
, 27700, HORNBEAM, 27300 



530 DATA HARD MAPLE, 24000, SOFT 

MAPLE, 18700, OAK, 25000 
540 DATA JACK PINE, 17100, NORWA 
Y PINE, 17100, WHITE PINE, 14300 

550 DATA SPRUCE, 15900, TAMARACK 
,20800, ALDER, 15800 
560 DATA DOUGLAS FIR, 17600, LAR 
CH, 20800, PONDEROSA PINE, 18100 
570 DATA REDWOOD, 18300, STOP, 0 
0000 

580 DATA ANTHRACITE COAL, 23000, 
TON, HI VOLATILE BITUMINOUS COAL, 

22000, TON, LO VOLATILE BITUMIN 
OUS COAL, 28600, TON 
590 DATA LIGNITE COAL, 13800, TO 
N, NO.l FUEL OIL, 135, GAL, NO . 2 

FUEL OIL, 110, GAL 
600 DATA KEROSENE, 135, GAL, PRO 
PANE, 91, GAL, NATURAL GAS, 1, C 
UBIC FEET 

610 DATA CHARCOAL, 13, LB, ELECT 
RICITY, 3.413, KWH, XXXX, 00, XX 

620 END 

630 CLS 

640 LINE INPUT "WHICH WOOD DO YO 

U WANT TO BUY? " ;W$ 

650 PRINT 

660 READ N$,H 

670 IF N$="STOP" THEN 910 

680 IF N$=W$ THEN 700 

690 GOTO 660 
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700 RESTORE 

710 PRINT " WHAT IS THE ASKING PR 



"CORD IN WHOLE DOLLARS 



ICE PER" 
720 INPUT 
ONLY ";P 
730 PRINT 

740 PRINT " YOU ENTERED $"P;:INPU 

T" RIGHT (Y/N):";Q$ 

750 IF LEFT$(Q$,1)="N" THEN 710 

760 CLS:X=25000 

770 C=INT( (P*X)/H+.5) 

780 E=INT(H/3.413) : G=H 

790 PRINT "A CORD OF ";W$ 

800 PRINT "AT $";P;" PER CORD" 

810 PRINT "WOULD BE EQUIVALENT T 

0 PAYING" 

820 PRINT"$";C;" FOR A CORD OF 0 
AK. " 

830 PRINT 

840 PRINT "FOR A CORD OF ";W$ 
850 PRINT "TOTAL AVAILABLE HEAT 
PER CORD ":PRINT"IS"; H/1000;"MI 
LLION BTU" 

860 PRINT "EQUIVALENT KILOWATT H 
OURS OF ELECTRICITY ARE ";E 

870 PRINT "EQUIVALENT CUBIC FEET 

OF NATURALGAS ARE " ;G 
880 PRINT: PRINT 
890 RETURN 
900 REM NOT IN DATA 
910 RESTORE 

920 PRINT "I DO NOT HAVE THAT WO 
OD DATA" 

930 PRINT "TRY ONE FROM MY DATA 
DISPLAY" 

940 INPUT"DO YOU WANT TO SEE IT? 
(Y/N)";Q$ 



950 IF LEFT$(Q$,1)="Y" THEN 980 
ELSE RETURN 
960 RETURN 

970 REM DISPLAY WOOD DATA 

980 CLS : PRINT "HERE IS ALL OF MY 

WOOD DATA." 
990 FORY=1TO700:NEXTY 
1000 PRINT 

1010 CLS : PRINT "WOOD TYPE", "MIL 
LIONS OF BTU" 

1020 PRINT " 



"PRESS <ENTER> TO CON 



1030 FOR Y=l TO 12 

1040 READ N$,H 

1050 IF N$="STOP" THEN 1100 

1060 PRINT N$,H/1000 

1070 NEXT Y 

1080 INPUT "PRESS <ENTER> TO CON 
TINUE" ;Q$ 
1090 GOTO 1010 
1100 PRINT 

1110 PRINT "THAT IS ALL MY FIREW 
OOD DATA" 
1120 RESTORE 
1130 RETURN 
1140 REM EXPLANATION 
1150 CLS : PRINT " THIS PROGRAM 
WAS WRITTEN IN OREGON WHERE OAK 
IS MOSTLY THE STANDARD FIREWOO 
D." 

1160 PRINT " SO, THIS PROGRAM 
COMPARES THEHEAT VALUE OF THE WO 
OD IN QUEST-ION WITH OAK."; 
1170 PRINT " WHEN ASKED, ENTER T 
HE KIND OF WOOD THAT YOU WANT T 
0 COMPARE AND THE PRICE THAT ISB 
EING ASKED FOR IT PER CORD." 



1180 PRINT " I WILL THEN COMPA 
RE THE HEAT VALUES AND RETURN MY 
ANSWER AS ACOST FOR A CORD OF 0 
AK. 

1190 PRINT 
1200 PRINT 
1210 INPUT 
TINUE" ;Q 
1220 CLS : PRINT 

1230 PRINT "FOR EXAMPLE, IF YOU 
ENTER 'FIR' AND $50 PER CORD, I 
WILL ANSWER: " 
1240 PRINT 

1250 PRINT "A CORD OF FIR" 
1260 PRINT "AT $50 PER CORD" 

*WOULD BE EQUIVALENT 



"$87 FOR A CORD OF OA 



1270 PRINT 
TO PAYING" 
1280 PRINT 
K." 

1290 PRINT 

1300 PRINT "I WILL ALSO PRINT TH 
E TOTAL HEATVALUE OF A CORD OF T 
HE WOOD IN" 

1310 PRINT "QUESTION IN KILOWATT 
HOURS AND IN CUBIC FEET OF NAT 
URAL GAS." ^ ^ M 

1320 INPUT "PRESS <ENTER> TO CON 

TINUE" ;Q 

1330 CLS-.PRINT 

1340 PRINT" FOR A CORD OF FIR" 
1350 PRINT"TOTAL AVAILABLE HEAT 
PER CORD IS 14.3 MILLION BTU" 
1360 PRINT" EQUIVALENT KILOWATT H 
OURS OF ELECTRICITY ARE 4189" 
1370 PRINT" EQUIVALENT CUBIC FEET 
OF NATURALGAS ARE 14300" 

Listing continued 




BASIC COMPILER 




oped. 

the beat bargains in this magazine: 

- PlSting Point arithmetic expressions with functions 

- SUBROUTINE and CALL commands allows for -tructured 
programming and more independant program ^oP^at 
Full seauential and direct access disk files aliowea 
BAS C source and M.L. output I/O to disk, tape or..jor, 

- Many new commands that expand your programming capability 



Commands Supported 



I/O -Commands 

CLOSE CLOADM CSAVEM DIR 

DSKO$ FIELD FILES GET 

LSET OPEN PRINT PUT 



DRIVE DSKIS 
INPUT KILL 
RSET 



2. Program Control Commands 

CALL END EXEC FOR STEP 

GOSUB GOTO IF THEN ELSE 

ON.. GO RETURN STOP SUBROUTINE 

3. Math Functions 

ABS ASC ATN COS 

EXP FIX INSTR INT 

LOC LOF PEEK POINT 

SGN SIN SQR TAN 

4. String Functions 

CHR$ INKEYS LEFTS 
STR? STRING* 

5. Graphic/Sound Commands 

COLOR CLS CIRCLE 
PCLEAR PCLS PLAY 
RESET SCREEN SET 

6. Other/Special Commands 

DATA DIM LLIST 

REM RESTORE RUN 

DST IBSHFT LREG 

REAL SREG SWP 



NEXT 
ERROR 



CVN EOF 

LEN LOG 

PPOINT RND 

TIMER VAL 



MID$ 



DRAW 
PMODE 

SOUND 

MOTOR 
TAB 
PCOPY 
VECTD 



LINE 
PRESET 



POKE 
VERIFY 
PMODD 
VECTI 



RIGHTS 



PAINT 
PSET 



READ 

DLD 

PTV 



DON'T HESITATE. . .BUY MLBASIC TODAY 



64K Required wasatchWare 7350 Nutree Drive 



Call (801) 943-6263 



Salt Lake City, Utah 
84121 



Disk 



$69.95 Include $4,00 Shipping and Handling 
e - $69.95 Utah residents add 5.75 % tax 
Both - $74.95 check or Money Orders Only (No C.O.D 



LOOK 



BEST PRICE 
BEST SELECTION 
BEST DELIVERY 
BEST SERVICE 

RADIO SHACK COLOR COMPUTER 
AND IBM PC/PCjr. 



CALL: 



Circle Reader Service card #28 




.Software 
Conncciion 

4301 N. State Rd. #7 
Lauderdale Lakes, FL 33319 
305-484-7547 
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1380 PRINT 

1390 PRINT "I LEAVE ANY EFFICIEN 
CY OR ELECT-RICAL COST CALCULATI 
ONS TO YOU. " 

1400 PRINT "I REALLY DON'T HAVE 
ROOM FOR ALLOF THE DATA THAT WOU 
LD REQUIRE." 

1410 INPUT "PRESS <ENTER> TO CON 
TINUE" ;Q 
1420 RETURN 

1430 REM GENERAL CONVERSION ROUT 
INE 

1440 CLS : READ N$,H 

1450 IF N$="STOP" THEN 1470 ELSE 

1440 
1460 GOTO 1440 

1470 FOR Y=l TO 11: READ A$(Y),R( 
Y) ,U$(Y) : NEXT Y 
1480 RESTORE 

1490 CLS : PRINT TAB ( 4 ) "NON-WOOD H 

EAT SOURCES" :PRINT 

1500 FOR Y=l TO 11 

1510 PRINT Y ; TAB ( 4 ) A$ ( Y ) :NEXTY 

1520 PRINT" 12 CONVERSION EXPLAN 

AT I ON" 

1530 PRINT: INPUT"WHICH ONEQ-12) 
»;Q 

1540 IF Q=12 THEN 1810 ELSE 1550 
1550 IF Q<1 OR Q>11 THEN 1490 EL 
SE 1560 
1560 L=Q 

1570 CLS:PRINT"YOU SELECTED :": PR 
INT A$(L) 

1580 INPUT"CORRECT (Y/N)";Q$ 
1590 IF LEFT$(Q$,1)="N" THEN 149 
0 ELSE 1600 

1600 PRINT : PRINT " COMPARED TO WHI 



CH WOOD" : INPUTW$ 
1610 READ N$*,H 

1620 IF N$="STOP" THEN 1950 ELSE 
1630 

1630 IF N$=W$ THEN 1650 ELSE 161 
0 

1640 GOTO 1610 

1650 RESTORE : M=H/R ( L ) :IF U$(L)<> 
"TON" THEN V=INT(M+.5) :GOTO1670 
1660 V=INT( 100*M)/100 
1670 CLS:PRINT:PRINT 
1680 PRINT"ONE CORD OF ";N$ 
1690 PRINT"IS EQUIVALENT TO" 
1700 PRINTV;U$(L) ;" OF" 
1710 PRINTA$(L) 

1720 PRINT " FOR A TOTAL HEAT CONT 
ENT OF" 

1730 PRINT H/1000; "MILLION BTU" 
1740 PRINT " AT 100% EFFICIENCY" : P 
RINT 

1750 PRINT " ENTER <M> TO RETURN T 
0 THE MENU" 

1760 PRINT " ENTER <C> FOR A NEW C 

ALCULATION" 

1770 INPUT Q$ 

1780 IF Q$="M" THEN 320 ELSE 179 
0 

1790 IF Q$="C" THEN 1440 ELSE 17 
70 

1800 REM GENERAL CONVERSION NOTE 
S 

1810 CLS:PRINT" THIS ROUTINE 

WILL MAKE A COMPARISON OF A C 
ORD OF ANY TYPEOF WOOD IN MY DAT 
A TO ANY OF THENON-WOOD HEAT SOU 
RCES IN MY DATA" 

1820 PRINT " I WILL LIST ALL OF MY 



NON-WOOD DATA AND YOU CHOOSE T 
HE ONE YOU WANT TO KNOW ABOUT. 
1830 PRINT"THEN I WILL ASK WHICH 

WOOD YOU WANT TO COMPARE AND W 
HEN YOU ENTER A WOOD FROM MY 
DATA TABLE I WILL CALCULATE THE 
AMOUNT OF" 

1840 PRINT"THE NON-WOOD SOURCE T 
HAT IS EQUIVALENT TO ONE COR 

D OF THE CHOSEN WOOD." 
1850 INPUT"PRESS <ENTER> TO CONT 
INUE" ;Q 

1860 CLS:PRINT:PRINT"FOR EXAMPLE 
:":PRINT 

1870 PRINT " SAY YOU WANT TO KNOW 
HOW MUCH ANTHRACITE COAL YOU C 
AN REPLACE WITH A CORD OF OAK." 
1880 PRINT"YOU SELECT ANTHRACITE 
COAL FROM THE LIST AND ENTER OA 
K AFTER THEPROMPT. I WILL THEN 
RETURN: " 

1890 PRINT : PRINT "ONE CORD OF OAK 

IS EQUIVALENT TO" 
1900 PRINT"1.08 TON OF ANTHRACIT 
E COAL" 

1910 PRINT:PRINT"PRESS ANY KEY" 
1920 Z$=INKEY$:IF Z$= " "THEN19 20 
1930 GOTO1440 
1940 RETURN 
1950 RESTORE 

1960 PRINT" I DO NOT HAVE THAT WO 
OD DATA" 

1970 PRINT "TRY ONE FROM MY DATA 
DISPLAY" 

1980 INPUT"DO YOU WANT TO SEE IT 
(Y/N)";Q$ 

1990 IF LEFT$(Q$ / 1)="Y" THEN 980 
ELSE RETURN END 



STOCK & FUND INVESTING 

with the 

TRS-80* COLOR COMPUTER 

USE FUNDGRAF AND FUNDFILE 

FUNDGRAF is a stock market analysis program that not only graphs and 
analyzes funds or stocks, but also makes decisions on when to BUY and SELL. 
Improve market timing using your COCO. 

GRAPHS fund's progress (up to 200 
weeks). SUPERIMPOSES for comparison: 
a line of constant percent growth or a 
graph of any other fund (or stock). 
CALCULATES over any time span: the 
percent price change and the moving 
average (any span). INDICATES BUY 
and SELL signals. FUNDGRAF requires 
16 K ECB min. 

16/32 K Tape $49.95 

16/32 K 5 in. Disk $69.95 

ADD $2 handling on all orders. 



T 



I 1 I 1 I 1 I 



FUNDGRAF-A STOCK 

MARKFT ANALYSIS 
PROGRAM FDR 16K EX 
TRS -SO COLOR COMPUTER - 




TBS-8G COiGR COMPUTER • T M TANDY CORP 



FUNDFILE is a portfolio and account management program for securities. 
Manage single or multiple portfolios of stocks, mutual funds, bonds, money 
market funds, etc. FUNDFILE allows easy maintenance of all your records for 
accurate portfolio evaluation. NEW 32 K VERSION of FUNDFILE summarizes 
all transactions (dividends, interest, purchases and sales) between any two 
dates of your choice - weekly, yearly, etc. Categorizes interest and dividends paid 
as to tax liability (tax free, etc.) and capital gains as long or short term. Great for 
tax reports. 

FUNDFILE REQUIRES 16 K ECB min. and 80-COL PRINTER. 

5-in. Diskette only for 16 K ECB $27.95 

5-in. Diskette only for 32 K ECB $37.95 

ADD $2 handling on all orders. 



VISA 



Write for free brochure for details. 
Circle Reader Service card #320 



PARSONS SOFTWARE, DEPT. H 
118 WOODSHIRE DRIVE 
PARKERSBURG, WV 26101 



MOVING? 

SUBSCRIPTION 
PROBLEM? 

Get help with your subscription by 
calling our new toll free number: 

1-800-227-5782 

between 9 a.m. and 5 p.m. EST, 
Monday-Friday. 

If possible, please have your mailing label 
in front of you as well as your cancelled 
check or credit card statement if you are 
having problems with payment. 

If moving, please give both your 
old address and new address. 
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Fby S 



EDUCATION 

by Simon Gift 



i 



i on our Instant CoCo cassette. 
I elsewhere in this issue. 



CoCo 




Math Invasion is an arcade-style drill- 
and-practice program for addition, 
subtraction, multiplication, and division. 
You can tailor the program to meet the 
needs of all students— from beginners who 
need to practice 2 + 2 to more advanced 
students who can cope with 970 + 5. Be- 
cause the response time is limited, stu- 
dents can't work problems out on paper. 
So, Math Invasion gives them a chance to 
practice "mental arithmetic," too. 

Program Operation 

At the opening of the program, the super- 
visor must establish game parameters. The 
first determines the operations that the 
game will test. The menu offers you five 
choices: addition, subtraction, multiplica- 
tion, division, and continue. When you 
press a number from one to four, the cor- 
responding mathematic symbol appears 
below the menu. You can enter a single 
symbol or any combination of symbols. 
The more frequently you press a particular 
number, the more often that operation will 
be tested. Press 5 (continue) when you are 
ready to set further parameters. 



The program then asks you to input the 
number of problems needed to complete a 
game and lets you choose the numeric range 
of the question: 1-9, 1-99, or 1-999. The 
program randomly generates the problems' 
X and Y values so that these values and the 
answer fall within the range you have cho- 
sen. The game speed you select— fast, mod- 
erate, or slow— influences the time alotted 
for a response and thus controls the speed of 
the invader. At the continue/redo prompt, 
press C to bring up the next prompt or R to 
change the parameters. 

Press any key to begin the game. A prob- 
lem appears at the top of the screen, and an 
invader descends toward the student's 
base at the bottom. (The base is always di- 
rectly beneath the invader; no maneuver- 
ing is necessary.) If the student types in the 
correct answer and presses the enter key, 

System Requirements 
16K RAM for cassette systems 
32K RAM for disk systems 
Extended Color Basic or 
Disk Extended Color Basic 



the base fires, destroying the invader. If a 
wrong answer is given, the alien continues 
downward. 

The student may attempt to answer the 
question again. If the problem has not been 
solved correctly by the time the invader 
gets to the base, the base explodes and the 
computer records the question as an incor- 
rect response. 

Students should be encouraged to type 
multiple digits slowly and accurately; there 
is ample time to answer each problem. The 
answers to questions are whole numbers, 
so students are not required to type frac- 
tions or decimals. 

When the student has had the opportu- 
nity to answer the appropriate number of 
questions, the program displays a game- 
over message, a final score, and a rating of 
the student's performance. The ratings are 
designed to encourage students who have 
done poorly and reward students who have 
done well. ■ 



Address correspondence to Simon Clift, 
P.O. Box 787, Kincardine, Ontario, NOG 2G0, 
Canada. 



wsm 



mm 
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Program Listing. Math Invasion 

10 ' MATH 1 VADERS 

20 ' BY SIMON CLIFT 

30 PCLEARl : CLEAR 400 

40 CLS0:PRINT@224, "********* *MAT 

H 'VADERS**********" 

50 PRINT (§256, "*********BY SIMON 

CLIFT*********" • 
60 POKE65495,0 

70 PLAY" V3 1T5L402FB-03DFL8 FFL4FD 

L8DDL4DL402B-03D02B-L2F" 

80 CLS1 :PRINT"WOULD THE SUPERVIS 

OR PLEASE ENTER THE GAME PAR 

AMETERS NOW. . . " 

90 PRINT"1. ADDITION" :PRINT"2. S 
UBTRACTION" :PRINT"3. MULTIPLICAT 
ION" : PRINT" 4 . DIVISION" : PRINT" 5 . 

CONTINUE" :PRINT"SELECT THE OPER 
ATIONS I'LL USE, THE MORE OFTEN 
YOU ENTER ONE , THEMORE OFTEN I'LL 

USE IT. . . " 
100 OP$="" 

110 PRINT@354,OP$+"?"+CHR$(8)+" 
"+CHR$(8)+"?":X$=INKEY$:IF X$="" 
THEN 110 

120 IF X$=CHR$(8) AND LEN(OP$)>0 

THEN OP$=LEFT$(OP$,LEN(OP$)-l) 
130 IF X$="l" THEN OP$=OP$+"+" E 
LSE IF X$="2" THEN OP$=OP$+"-" E 
LSE IF X$="3" THEN OP$=OP$+"*" E 
LSE IF X$="4" THEN OP$=OP$+"/" E 
LSE IF X$="5" THEN 160 
140 GOTO 110 
150 IF OP$="" THEN 110 
160 PRINT@416 , ; : INPUT "NUMBER OF 
QUESTIONS" ;NQ 
170 IF NQ<1 THEN 160 
180 CLS: PRINT" ENTER RANGE OF NU 
MBERS TO BE USED OR PRODUCED: 



190 PRINT"1. 1-9" :PRINT"2. 1-99" 
:PRINT"3. 1-999" : PRINT " SELECT OP 
TION:"; 

200 X$=INKEY$:IF X$="" THEN 200 
ELSE IF X$<"1" OR X$>"3" THEN 20 
0 ELSE PRINTX$:FORI=1TO500:NEXTI 

210 NR=INT(9.99*10~(VAL(X$)-1) ) 
220 PRINT : PRINT "ENTER GAME SPEED 

:":PRINT"1. FAST" : PRINT" 2 . MODER 
ATE" :PRINT"3 . SLOW" : PRINT " SELECT 

. n • 

230 X$=INKEY$:IF X$<"1" OR X$>"3 

" THEN 230 ELSE PRINTX$ : FORI=lTO 

500:NEXTI :GS=VAL(X$) 

240 PRINT:PRINT"DO YOU WISH TO C 

ONTINUE OR REDO? (C/R 

)" 

250 X$=INKEY$:IF X$="R" THEN 80 

ELSE IF X$<>"C" THEN 250 

260 CLS0:FORI=0TO6 : PRINTSTRING$ ( 

64,128+1*16); : NEXT I : BX=32 : SC=0 : G 

OSUB580 : CN=0 : PRINT@0 , "PRESS ANY 

KEY TO START . . . " ; 

270 IF I NKEY$= " " THEN 270 

280 PLAY"T5L1502CEGCEGECG" :0$=MI 

D$(OP$,RND(LEN(OP$) ) ,1) 

290 IF 0$="+"THENAN=RND(NR) : A=RN 

D( AN) :B=AN-A 

300 IF 0$= " - " THENA=RND ( NR ) :B=RND 
(A) : AN=A-3 

310 IF 0$="*"THEN A=RND ( INT ( SQR ( 
NR))): B=RND ( INT ( SQR ( NR ) ) ) : AN=A* 
B 

320 IF 0$="/"THEN AN=RND ( INT ( SQR 
(NR) ) ) : B=RND ( INT ( SQR ( NR ) ) ) :A=AN* 
B 

330 PRINT(§0, "SOLVE:";A;0$;B;" = ? 



OS-9 SOFTWAREIHARDWARE 

SDISK— Standard disk driver module, allows the use of 40 and 80 track double sided 

drives with COCO OS-9, plus reads/writes format used by other OS-9 systems. $29.95 

SDISK + BOOTFIX— To boot from a DOUBLE sided disk $29.95 

PC-XFER— Read/write ss MS-DOS™ diskettes under CoCo OS-9, requires SDISK. 

$45.00 

CCRD 512K Byte RAM DISK CARTRIDGE— Requires RS Multipak interface, with 
software below creates OS-9 RAM disk device. $298.00 
CCRDV— OS-9 Driver software for above. $20.00 

Terms: Prepaid Check, MO, VISA/MC; add $1.50 S&H for software, $5.00 for CCRD. 
COD actual charges added. Send SASE for latest catalog. 

D.P. Johnson 7655 S.W. Cedarcrest St. Portland, OR 97223 
(503) 244-8152 (We prefer your calling 9-11 AM Pacific Time.) 

OS-9 is a trademark of Microware and Motorola Inc. 
MS-DOS is a trademark of Microsoft, Inc. 




Advertisers play a major role in our presentation of HOT CoCo each month. 
Not only have they invested enormous time and effort into their products, 
but they literally make the magazine possible each month. Without them 
there are no magazines like HOT CoCo making life with your CoCo more 
productive. When you order products from our advertisers, please mention 
us. It lets them know HOT CoCo is working for everyone. Tell them, "I saw 
it in HOT CoCo!" Thanks. 



340 AN$="" :IY=6:CN=CN+l:GOSUB 60 
0 

350 FORI=1TOGS*30:X$=INKEY$:IF X 
$ = "" THEN 360 ELSE IF (X$>="0" A 
ND X$<="9")OR X$=CHR$(13) OR X$= 
CHR$(8) THEN 430 
360 NEXTI 

370 D=RND(3)-2:IF BX<5 THEN D=l 
ELSE IF BX>27 THEN D=-l 
380 GOSUB590:GOSUB610:BX=BX+D:IY 
= IY+2 

390 GOSUB580:GOSUB600 
400 IF IY=30 THEN 480 
410 SOUNDl,l 
420 GOTO 350 

430 IF X$>="0" THEN AN$=AN$+X$:P 
RINT@23,AN$; : GOTO 350 
440 IF X$=CHR$(13) THEN IF VAL ( 
AN$ ) =AN THEN PRINTS 19 , AN$ ;: PRINT 
@2 3, "RIGHT! I ! " ; :GOSUB 570:SC=SC+ 
1 : PLAY"L2 5 5T25 504CDEFGABBAGFEDC" 
:GOSUB 610-.GOTO470ELSE PRINT@23, 
"WRONG" ; :PLAY"T3L101C" :AN$="" : PR 
INT@23, " " ; :GOTO 3 50 

450 IF X$=CHR$(8) AND LEN(AN$)>0 
THEN AN$=LEFT$(AN$,LEN(AN$)-1) : 
PRINT@23,AN$+" " 
460 GOTO 350 

470 IF CN=NQ THEN 490 ELSE 280 
480 GOSUB 620:PRINT@19,AN;"IS RI 
GHT" ; : PLAY"L4T402CE-CE-CE-CE-" :F 
ORI=l TO 1000 : NEXTI : I F CN<NQ THE 
N 280 

490 PRINT@268, "GAME OVER";:PLAY" 

L20T5O5BAGFEDCO4BAGFEDCO3BAGFEDC 

02BAGFEDC01BAGFEDC" 

500 CLS:PRINT"O.K. YOU SCORED"; 

SC;" RIGHT" : PRINT"OUT OF";NQ;"." 

: PRINT "THAT I S " ; I NT ( 100* ( SC/NQ ) ) 

; "PERCENT. . . " 

510 IF SC/NQ<.5 THEN R$="YOU NEE 
D TO CHECK UP ON HOW TO DO THE 
QUESTIONS; THEN PRACTICE AGAIN." 
520 IF SC/NQ>=.5 AND SC/NQ<.65 T 
HEN R$="YOU NEED MORE PRACTICE, 
BUT THATWASN'T TOO BAD." 
530 IF SC/NQ>=.65 AND SC/NQ<.85 
THEN R$="VERY GOOD, BUT YOU STIL 
L COULD USE A BIT MORE PRACTICE 

AT THIS LEVEL. " 
540 IF SC/NQ>=.85 THEN R$="EXCEL 
LENT ! ! MOVE UP A LEVEL, YOUKNOW 
WHAT YOU ARE DOING!!" 
550 PRINTR$ : PRINT@448 , "PRESS '*' 

TO RESET LEVEL OR f P' TO PLAY A 
GAIN. 

560 X$=INKEY$:IF X$="" THEN 560 
ELSE IF X$="P" THEN 260 ELSE IF 
X$="*" THEN RUN ELSE 560 
570 FORI=28 TO IY-2 STEP-1: RESET 
(BX+3,I+1) :SET(BX+3,I,0) :SOUND25 
5-1*8,1: NEXT :FORI=1TO20: PLAY" L25 
5T25 501CEDG" : SET ( BX+RND ( 6 ) ,IY-RN 
D(3) ,RND(8) ) : NEXTI :FORI=lT06: FOR 
J=1T03 : RESET ( 3X+I , I Y- J ) : NEXT J , I : 
RETURN 

580 FORI=lT03:FORJ=lTO(I+I-l) :SE 
T ( 3+BX+ J-I ,28+1,5): NEXTJ , I : RETUR 
N 

590 FORI=lT03 : FORJ=lTO( I+I-l ) : RE 
SET ( 3+BX+J-I , 28+1 ) : NEXTJ , I : RETUR 
N 

600 FORI=lTO6:SET(BX+I,IY-I/2,0) 
:SET(BX+6-I , IY-I/2,0) : NEXT: RETUR 
N 

610 FORI=lT06:RESET(BX+I,IY-I/2) 
: RESET ( BX+6-I , IY-I/2 ) : NEXT : RETUR 
N 

620 FORI=1TO20:SET(BX+RND(5) ,28+ 
RND ( 3 ) ,RND(8) ) : PLAY " L2 5 5T2 5 501CG 
DF" : NEXTI : FORI=BX TO BX+5:FORJ=2 
9T03 1 : RESET ( I , J ) : NEXTJ , I : GOSUB6 1 
0 : RETURN 



54 HOT CoCo November 1985 



by David Meredith 




Parallel 




with Color Logo 



Synchronizing multiple turtles mimics parallel processing. 



'arallel process- 
ing is the hot- 
test topic in computerland 
these days. With CPUs as 
cheap as a dollar or two, it is 
feasible to build a computer 
with 10 or even 1,000 processors 
operating in parallel. These paral- 
lel computers will vastly increase 
the speed of database searches and 
vector operations like spreadsheets and 
graphics. They may even achieve some of 
the goals of artificial intelligence, such as 
speech recognition and problem solving. 

Multiple-processor computers have al- 
ready been built at Cal Tech and Columbia 
University, while companies like DEC, IBM, 
and Cray Research are known to be working 



System Requirements 

16K RAM 
Color Basic 
Tandy Color Logo 



on similar technology. Japanese researchers 
are basing their Fifth Generation project on 
parallel computation. A recent meeting of 
university, government, and industrial com- 
puter scientists reported, "We are entering a 
new era in very high-performance comput- 
ing that will be dominated by parallel-archi- 
tectured systems." (Comm. ACM, August 
1984, p. 747.) 

Parallel processing will first appear on 
large, expensive mainframe computers, but 
it might filter down to personal computers 
before long. The greatest obstacle confront- 
ing parallel processing is designing software 
to take advantage of parallel hardware. Effec- 
tive parallel algorithms are only now being 
developed. 

You and your CoCo can join the parallel- 
processing revolution now and experiment 
with parallel processing using Tandy's Color 
Logo. Logo's multiple turtles can operate si- 
multaneously and communicate with each 
other like independent CPUs. Who knows— 
perhaps a CoCo owner will invent a new al- 
gorithm for the parallel hardware now being 
developed. 



Programming Multiple Turtles 

Programming multiple turtles is like orga- 
nizing a group of people. Each turtle is as- 
signed a job and taught to do it. That is, each 
turtle is given a program to follow. You don't 
write a single program or a main routine with 
subroutines. Instead, you write a separate 
program for each turtle, including instruc- 
tions for synchronizing with the other tur- 
tles. When the overall task is set in motion, 
the turtles communicate with each other to 
coordinate their processing. 

In some parallel programs, the turtles talk 
to each other. Listing 1 contains a short ex- 
ample of this sort. On the command RACE N, 
N turtles race across the screen. More pre- 



















Tower 1 Tower 2 Tower 3 
Fig. 1 . Starting Position for the Towers of Hanoi 
with Three Rings on the First Tower 
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THE MAGAZINE FOR TRS-80 COLOR COMPUTER* USERS. 



L? LC! L LLu.fl 

Your CoCo Talks, But 
The Voice Is Yours 

Create Custom 
Soundtracks 
For All Your Programs 

Tune In to The Source ! 

Contest! 

Solve the Puzzle 
Win a Prize 





\Q*\lstherea 
quality software 
package that 
promises to give 
me a wide variety 
of easy-to-use 
Color Computer 
programs? And 
at a low price? 



\7v\ Yes, instant CoCo 



Ready-to-run HOT CoCo 
programs on cassette! 

There's just no question, instant CoCo is a 
terrific way to build your Color Computer 
software library. Each month, instant CoCo 
brings you 8-12 top-notch, original programs 
from the latest issue of HOT CoCo 
magazine— all on one high-quality cassette. 
Everything from action-packed games to 
helpful utilities. And the cost? As lie as $8.33 
a month when you buy a one year 
subscription! 

instant CoCo is the ideal companion to 
HOT CoCo magazine, because ready-to-run 
instant CoCo relieves you of the frustrating, 
time-consuming keyboarding and debugging 
of the published programs. Our technical 
editors have done it all for you. You'll save 
hours of time and considerable aggravation! 
Just drop the tape into your cassette player, 
and get set to enjoy some great software! 



A free bonus program 
in every issue! 

But wait, there's more! On every monthly 
instant CoCo cassette, you'll get one or more 
previously unpublished bonus programs 
absolutely FREE. These bonus programs 
have never appeared in HOT CoCo 
Complete instructions for the bonus programs 
are included. 

Bonus programs— one more reason why 
you should be getting instant CoCo each and 
every month! • 
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Supplement your library 
with "The Best of '84"! 

Complete with documentation 
There's even a special collector's item 
edition of instant CoCo "The Best of '84"- 
29 first-class HOT CoCo programs that come 
through 1984 with flying colors! 

Graphics. Utilities. Games. Plus, 
applications for business, home, and school. 
"The Best of 84" is the perfect complement 
to your instant CoCo library, and comes 
complete with an easy-to-use documentation 
booklet. 

Programs of outstanding variety and top 
quality. The best programs from an entire 
year of HOT CoCo, including: 

• "Stock Transactions Tracker" 

• "Graphics Builder" 

• "Personal Money Manager" 
Don't miss this one. Order your "Best of 

'84" today. 



OK! Send me instantCoCo! 



To order instant CoCo and "The Best of '84", just complete the information 
on the coupon or attached order card and drop it in the mail. For faster 
service, call TOLL FREE 1-800-258-5473. In NH, dial 1-924-9471. VISA, 
Mastercard, and American Express welcome. 



Yes! 



I want instant CoCo to meet my 
programming needs! 



□ Please sign me up for a one year subscription for $99.97 
($8.33 per issue), beginning with this month's issue. 

□ Please send me the issue for $1 1 .47. 

Month 

□ Please send me "The Best of 84" for $16.47. 

□ Payment enclosed □ MC □ VISA □ AE 



Card # 


Exp. Date 




Signature 


Name 


Address 







City 



State 



Please allow 4-6 weeks for delivery. 
Price includes postage and handling. 

Foregn Air Mail please add an additional 45$ per cassette, or $25 per subscription. 
US funds drawn on US banks ONLY. 



instant CoCo 
80 Pine Street 



Peterborough, NH • 03458 




cisely, N - 1 turtles race and one sits up. It 
stops for a random length of time; then it 
sends a message to stop another turtle and 
begins running again. 

In other programs, a master turtle controls 
subordinate turtles. All communication is 
between the master turtle and its subordi- 
nates. The main program in this article (List- 
ing 2) uses a master turtle and subordinate 
turtles to solve the Towers of Hanoi puzzle. 

The Towers of Hanoi 

The ancient Towers of Hanoi puzzle con- 
sists of three pegs or towers placed upright 
and a small set of rings of graded sizes. The 
rings are initially placed on tower 1, with the 
largest on the bottom and the smallest on the 
top (Fig. 1). The object of the puzzle is to 
move the rings to tower 3. You can only move 
one ring at a time, and you cannot place a 
ring on a smaller ring. When you are done, 
the rings should be stacked on tower 3, with 
the largest on the bottom and the smallest on 
the top. 

Table 1 contains a solution to the puzzle for 
three rings. You can try this solution yourself. 
Draw three circles on a piece of paper; label 



All rings start on tower 1 

Move ring 1 to tower 3 
Move ring 2 to tower 2 
Move ring 1 to tower 2 
Move ring 3 to tower 3 
Move ring 1 to tower 1 
Move ring 2 to tower 3 
Move ring 1 to tower 3 

Table 1 . How to Move Three Rings from Tower 
1 to Tower 3 



them 1,2, and 3; stack three different coins in 
circle 1. Now follow the instructions in Table 
1 to move the coins to circle 3. Can you solve 
the puzzle for four coins? How many moves 
does it take? How many moves does it take 
with four towers instead of three? 

Listing 2 contains a Logo solution to the 
puzzle using parallel processing. It displays 
a moving picture of the puzzle being solved. 

Before discussing the details of this pro- 
gram, let's look at its underlying algorithm. 
Think of Table 2 as the directions for improv- 
ing your ability to solve the puzzle. If you 



could move three rings from one tower to an- 
other, then Table 2 would show you how to 
move four rings. First, move the top three 
rings from the source tower to the extra 
tower (you already know how to move three 
rings). Then move the bottom ring from the 
source tower to the target tower (that in- 
volves moving one ring). Finally, move the 
top three rings from the extra tower to the 
target tower (you move three rings again). 

Table 2 solves the puzzle completely. It 
solves the puzzle if there aren't any rings left 
(you don't do anything); it also extends the 
solution from any level to the next. So, it 
solves the puzzle for any number of rings. 

The algorithm in Table 2 is called recursive 
because it calls itself. Recursion is one of the 
tricks of the Logo programmer. You can read 
more about it in the Color Logo manual, pp. 43- 
52. (See also pp. 28 and 1 16 on local variables.) 

Logo Solution 

The Logo solution to the Towers of Hanoi 
puzzle (Listing 2) uses a master turtle (turtle 
0) and subordinate turtles. The subordinate 
turtles are tower turtles and ring turtles. 

The master turtle is controlled by the pro- 



Robotize Your CoCo with EMC 



THE TIME MACHINE! 

Stop wasting time on that cassette or single- 
drive system. You can afford Polygon's disk 
systems featuring Teac Vi height, 40 track 
drives that are fast quiet and use less power. 

With complete systems you get J&M Systems' 
controller with gold-edge connectors, the 
latest circuitry and reliable design. For 100% 
compellability, the controller is supplied with 
RSDOS assuring easy, trouble-free operation 
with all commercial software. 



No. of Drives 
Teac Sgl Sided 
Teac Dbl Sided 



Drive(s) w7 
Case/Pwr Supply 

One TWo 



Systems w7 
Controller/DOS 



$159 
$189 



$229 
$319 



One 

$239 
$279 



TWo 

$319 
$419 



Drives are pre-tested and ready to plug in 
and use. Options available are ADOS in ROM, 
JFD-CP controller w/printer port, HDS dual 
ROM controller. Horizontal case, etc. Call for 
details. Free catalog 200 + Coco items. 
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POLYGON COMPUTERS 

iL — J 1316 Wilshire Blvd., Suite 206 1 1 

Los Angeles, CA 90017 

(213) 483-8388 

Co. Res. 6V*% tax Shipping: $2 Software 

Visit our Retail Store Charges: $5 Hardware 




YOU COULD 
BUILD THIS COCO 
POWERED ROBOT! 

AND MORE 

Send For Free Brochure 
Florida Residents Add 5% Tax 
$3.00 Shipping & Handling 



Our unique expansion hardware enables you to create 
a versatile automated control system. 
All EMC boards come fully assembled and computer tested. 

Model 100 Parallel Port (PIA) $39.95 

Features: Two 8 Bit Bi-Directional Ports, 4 Control Lines, 
Sample Software Provided 

Model 200 Buss Driver $89.95 

Features: TTL, Fanout of 10, 2 Card Slots and Flexible 
Ribbon Buss Provided. Additional Connectors 
Available. 

Model 400 Mother Board $44.95 

Features: 4 Slots, 5 Gold Pin Connectors, PC Board, for all 
Non Dedicated Boards. 

Model 500 Motor Control AMP $29.95 

Features: TTL Compatible, LED Direction Indicators, Drives 
DC Motors 500 MA Max at 12 VDG. 
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To move a stack of N rings from tower A to 
tower B 

IfN>0Then 
C=6-A-B 

move stack of N - 1 rings from tower 

A to tower C 

move ring N to tower B 

move stack of N - 1 rings from tower 

C to tower B 

Table 2. Solution to puzzle given as an algo- 
rithm for moving a stack of N rings from tower 
A to tower B. If N = 0, there are no rings to 
move, so nothing happens. If A and B are two 
tower numbers, then C = 6-A-Bisthe third 
tower number. 



cedure HANOI and its subprocedures SETUP 
and MOVE. SETUP clears the screen and cre- 
ates the ring and tower turtles. MOVE, which 
is modeled on Table 2, solves the puzzle by 
moving the rings. The command SEND :N :B 
tells ring turtle N to move to tower B. 

Tower turtles are numbered 101, 102, and 
103 for towers 1, 2, and 3. Each is controlled 
by the procedure, TOWER. Tower turtles al- 
ways occupy the lowest unused position on 
their tower, although they are not visible on 
the screen. When they receive the message, 
2, in the mail, they move up one position; 
they move down one position when they re- 
ceive a 1. They tell the moving rings where 
to land at the end of a move. (You can make 
the tower turtles visible by removing the 
command HT from TOWER.) 

Ring turtles, numbered 1. . .N, correspond 
to the rings on the towers. They look like 
rings turned on edge, they sit stacked on the 
towers, and on command from the master 
turtle, they move to another tower. 

Each ring turtle is controlled by the proce- 
dure RING. This procedure first places the 
ring turtle at its starting position on tower 1 . 
Then it waits for a message from the master 
turtle. Upon receiving the message T2 from 
the master turtle, RING moves the ring to 
tower T2 and sends a confirmation message 
back to the master turtle. 

As each ring moves, it sends a message 1 to 
the tower it is leaving and a 2 to the tower for 
which it is headed. This causes the tower tur- 
tles to correct their positions on their towers 
in preparation for receiving the next ring. 
The master turtle and its subordinate ring 
and tower turtles are alive and operating si- 
multaneously. 

Two questions remain to be answered. 
How can the ring and tower turtles follow 
just two procedures, RING and TOWER, and 
yet not all do the same thing? How can they 
operate simultaneously? An analogy might 
help answer the first question. An income- 
tax form is a procedure. Everyone fills out the 



same tax form according to the same rules, 
but because people have different incomes 
and deductions, they don't fill it out the same 
way. 

Similarly, several turtles can follow the 
same procedure in different ways. Each tur- 
tle has its own shape, its own name (ME), its 
own mail, and its own set of variables. For 
example, if ring turtles 1 and 2 are on differ- 
ent towers, they have different values in their 
variables :T1. Differences in their data lead 
different turtles to follow the same procedure 
in different ways. 

There is, however, only one CPU in your 
CoCo. The Logo interpreter mimics parallel 
operation with a time-sharing trick. After an 
instruction for one turtle is executed, the in- 
terpreter switches to the next turtle. The in- 
terpreter cycles through all the turtles and 
then begins again with the next instruction 
for each one. If you observe the operation of 
Listing 1 closely, you can see that two turtles 
never move at exactly the same time. 

I hope I've interested you in exploring par- 
allel processing further. More information can 
be found in the Color Logo manual as well as 
in texts and articles on parallel processing and 
Ada. I've listed three classics and one up-to- 



fXf 1 ^^ MODULAR 
I/O PORT KITS 

Parallel 8 bit input & output 
for your CoCo, and Models 1, III, 4. 

• MODULAR DESIGN FOR ADDITION 
OF MULTIPLE PORTS • LATCHED OUTPUT 

• STATUS MONITORED BY LEDS 

• SWITCH SELECTABLE I/O ADDRESS 

• SOFTWARE DIAGNOSTICS 

I/O PORT KIT INCLUDES. . . . 

4.5" x 6" Printed circuit board; All components; Cable 
(Plugs To CoCo Adapter) Diagnostic software listing (BASIC); 
and Manual. (Requires 5V 100 ma supply) 

Complete I/O port kit (J107K) $35 

A-D/D-A Interface (J202K) $35 

CoCo Adapter-required for CoCo (J 11 OK) $15 

Model 1,111,4 Adapter (J112K) $20 

5 Volt Power Supply (D100K) $25 

Complete Enclosure Kit (D100E) $30 

SOFTWARE (APPLICATIONS) 

DIGITAL AND MEMORY SCOPE-Converts 

the CoCo TV display into an oscilliscope 

screen. (S101M)— LISTING $5. 

DIGITAL RECORDER and DELAY-Record 

and play back audio signals up to ten seconds. 

(S102M)— LISTING $5. 

One FREE BUFFER BOARD with every four 
I/O PORT KITS ordered! 
30% ASSEMBLY CHARGE 

send check, money order or C.O.D. 
Circle Reader Service card #225 

D & A Research 

400 Wilson Avenue 
Satellite Beach, FL 32937 
305/777-1728 



date text in the bibliography (Table 3). Despite 
their forbidding titles, they are accessible to 
anyone who knows a little Pascal. ■ 



Brinch Hansen, P., The Architecture of Con- 
current Programs, Prentice-Hall, Englewood 
Cliffs, NJ, 1977. 

Dijkstra, E.W., "Cooperating Sequential Pro- 
cesses" in Programming Languages (ed. F. 
Genuys) Academic Press, NY, 1968. 

Gehani, N., Ada, an Advanced Introduction, 
Prentice-Hall, Englewood Cliffs, NJ, 1983. 

Hoare, C.A.R., "Communicating Sequential 
Processes," COMM. ACM, v.21, no. 8, pp. 
666-677, August 1978. 

Table 3. Bibliography 
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at San Francisco State University. Address cor- 
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HIGH SCHOOL AND COLLEGE 
MATHEMATICS 
LEARNING 
SOFTWARE 
For School and Home 
Apply the power of your 
Color Computer 
to improve student mastery 
and understanding of 
all high school and college math. 

COORDINATE DEFENSE 

(Video Game — Style Drill) $25 

PRE-ALGEBRA LEARNING PACKAGE* 

(3 Drill and Practice Programs) $50 

ALGEBRA LEARNING PACKAGE* 

(7 Drill and Practice Programs) $80 

TRIG PACKAGE 

(2 Program Set) $35 

STATISTICAL ANALYSIS 

(All usual data analysis) $30 

PROBABILITY GRAPHICS PACKAGE 

(3 HI-RES Simulations) $50 

4 CALCULUS GRAPHICS PACKAGES 

(Each has 6 HI-RES Programs) ea. $75 

STATISTICS GRAPHICS PACKAGE 

(7 HI-RES Programs) $100 

BIO-MATHEMATICS 

(2 Population Growth Models) $40 

* Available in 16K Standard 
Available on Cassette or Disk 

| MatheGraphics Software 

61 Cedar Road, Suite C 
East Northport, NY 11731 
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FALL SPECIAL! 

Star SG-10 PRINTER 

Metric Industries Model 101 INTERFACE 

Handsome brown vinyl DUST COVER 

Spare replacement RIBBON 

Starter pak of PAPER 

OHQ 00 

1 ^- COMPLETE 

SAVE 31.00 
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STANDARD MODEMS... 

Avatex 300 with cable 
Volksmodem with cable 

SMART MODEMS... 

Hayes 300 
Avatex 1200 
Prometheus 1200 
with options 

Coco cable 



74.95 
74.95 

169.00 
279.00 
369.00 
525.00 
14.95 



CHOOSE FROM OUR LARGE 
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B5 ... Colorware ... Deft ... Derringer ... Dynacalc ... Elite .. 
HJL ... J & M ... Mark Data ... Metric Industries ... 
Michtron ... Microcom ... Tom Mix ... PBJ ... PXE ... 
Speech Systems ... Sugar ... TCE ... VIP ... and more! 
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FDN 


move forward N steps 


LTN 


turn left N degrees 


RTN 


turn right N degrees 


HT 


hide the turtle 


ST 


show the turtle 


PU 


lift the turtle's pen 


PD 


lower the turtle's pen 


PCN 


change the pen's color to N 


SHAPE. . 


. change the shape of the turtle 


Table 4. Logo Commands 



A Brief Introduc 
to Logo 

Logo is a computer language widely used to introduce children 
to programming. But Logo is neither simple nor childish. It was 
designed to be a complete programming environment with special 
graphics features; anything you can do with Basic, you can do with 
Logo. Moreover, Logo is modular and readable. You can develop a 
Logo program as a series of procedures and use long variable and 
procedure names. 

The key object in Logo is the turtle. If the metaphor for a Basic 
program is a list of instructions for a computer to follow, then a 
Logo program is a list of instructions for a turtle to follow. A Logo 
programmer is always directing a turtle on the screen. The turtle 
can receive key- 
strokes, print mes- 
sages, and draw 
pictures with its 
pen by moving 
about the screen. 
The turtle is always 
located on the 
screen headed in a 
specific direction. 
Table 4 lists com- 
mands that move 
the turtle or affect 
the pen. 

Logo procedures can include variables. Variable names are 
strings preceded by a colon, like :N. To assign :N the value 3, exe- 
cute "MAKE :N 3". 

Program control is given by IF, ELSE, REPEAT, and WHILE 
(there are no GOTOs). Each control statement is followed by a block 
of instructions to execute; the block is delimited by parentheses. 
For example, to move forward eight steps :R times, use REPEAT 
:R (FD 8). The instruction block can contain more than one line. 

The principle program unit in Logo is not the line but the pro- 
cedure. Procedures begin with TO, and invoke each other. The 
main procedure can be started by invoking its name and any nec- 
essary parameters from the keyboard in run mode. For example, 
to run the Towers of Hanoi animation in Listing 2 for three rings, 
you type HANOI 3 from run mode. HANOI in turn invokes SETUP 
and MOVE, and RING invokes F. 

Tandy's Color Logo includes a multiple-turtle facility not found 
in other Logos. You always start with one turtle— turtle 0. You can 
create additional turtles numbered 1 through 254 with the com- 
mand, HATCH. Each newly created turtle must be assigned a pro- 
gram. The command HATCH 101 TOWER :N creates Turtle 101, 
assigns it the program Tower, and passes the parameter :N to 
TOWER. 

Turtles can exchange messages that are numbers between 
- 32768 and 32767. To send a message m to turtle B, execute 
SEND B m. The message m can be a constant or a variable. Notice 
that you don't have to specify which turtle is sending the message; 
the turtle executing the program in which the command appears 
is the one sending the message. 

Messages are held until called for. To request mail sent by turtle 
T, a turtle executes the function MAIL T. The function MAIL 255 
returns the oldest message waiting to be delivered to the turtle. ■ 
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Program Listing 1. Race N turtles across 
the screen. 

RUN A RACE 

RACE CREATES N TURTLES THAT 
RACE ACROSS THE SCREEN. AT ANY 
TIME ONE TURTLE ISN'T MOVING. 
SEND COMMAND FREEZES A RANDOM 
TURTLE TO START. 

TO RACE :N 
CLEAR HT NOWRAP 
SXOSY 16 SH 90 
MAKE :I 1 
REPEAT :N 
( SY ((YLOC ME) + 16) 

HATCH :I STOPANDGO :N 

MAKE :I :I + 1 

) 

SEND ((RANDOM :N)+1) 1 
VANISH 
END 

STOPANDGO DIRECTS RUNNER TUR- 
TLES. A TURTLE GOES UNTIL IT RE- 
CEIVES MAIL. THEN IT STOPS FOR A 
RANDOM LENGTH OF TIME, SENDS A 
MESSAGE TO STOP ANOTHER RUN- 



NER TURTLE SELECTED AT RANDOM, 
AND RESUMES RUNNING ITSELF. 

TO STOPANDGO :N 
PU PRINT ME FD 8 PD 
PC ME -3* (ME/3) 
WHILE 1 

( IF NOT MAIL 255 

( FD 5) 

ELSE 

( LT90 

WHILE RANDOM 6( ) 
SEND ((RANDOM :N) + 1) 1 
RT90 

) 

) 

END 

Program Listing 2. Hanoi displays a solu- 
tion to the Towers of Hanoi puzzle with N 
rings. 

TOWERS OF HANOI 

TO DISPLAY ANIMATED SOLUTION TO 
TOWERS OF HANOI PUZZLE WITH N 
RINGS, INVOKE "HANOI N*\ 

THE PROGRAM USES THREE TOWER 



TURTLES AND N RING TURTLES MOV- 
ING BETWEEN THE TOWERS. 

THE ROUTINE IS LIMITED BY MAKEME 
TO 6 RINGS 

TO HANOI :N 
SETUP :N 

MOVESTACK :N 1 3 
END 

SETUP ESTABLISHES THREE TOWERS 
WITH :N RINGS ON THE FIRST TOWER. 
:RINGNUM AND :HEIGHT ARE LOCAL 
VARIABLES. 

TO SETUP :N :RINGNUM : HEIGHT 
CLEAR PU HT 
HATCH 101 TOWER :N 
HATCH 102 TOWER :N 
HATCH 103 TOWER :N 
MAKE :RINGNUM :N 
MAKE :HEIGHT 64 
REPEAT :N 

( HATCH :RINGNUM RING :HEIGHT 
MAKE :RINGNUM :RINGNUM - 1 
MAKE -.HEIGHT :HEIGHT + 8 

) 

END Listing continued 
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TEACHER PAK Four 16K Ext. BASIC programs. Do 
grades (with or without weighting), statistical 
analysis of grades, alphabetize name lists, 
create seating charts. On tape but works with 
disk. 80-column printer helpful. $34.95 

TEACHER PAK PLUS Like Teacher Pak but includes 
CoCo Test em described below. $47.95 

COCO TESTEM Create multiple choice, short 
answer, completion, true/false, and matching 
tests. On tape but works with disk. 32K Ext. 
BASIC. Needs 80-column printer with underline 
ability (DMP-110, LP-VIII, etc.). $19.95 

COCO GARDENER Superlative garden planning aid 
and gardening data source. Printer preferred. 
16K Extended BASIC. $19.95 

TIME MASTER Calendars. biorhythms, day of 
week, human compatibility, days between dates. 
Printer optional. 16K Extended BASIC. $19.95 

COCO-LIFE The classic game of living, growing, 
reproducing patterns. Printer optional. 16K 
Extended BASIC + ML. $19.95. Enhanced 32K 
CoCo-Life II version also $19.95. 

PERPETUL IFE Cross between checkers and Life. 
One or two players. 16K Ext. BASIC + ML. $19.95 

All programs sold on tape. Send check or money 
order (no cash - Pa. residents add 6%) to: 

Tothian Software 
Box 663 
Rimersburg, Pa. 16248 
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Formaker 

the fastest, most complete 


office package yet! 


Totally Menu Driven 


Customize with company information 


Complete "on screen" instructions 


FORMS STORES 


FIGURES 


letter complete forms 


quantity 


invoice item list 


list 


quote subquotes 


net 


purchase order letters 


discount 


mail order footnotes 


subtotals 


confirm order customer info 


tax 


receipt 


freight, etc. 


SEPARATE CONFIGURE 




PROGRAM 


PRINTS 


for company info 


form feed 


printer options 


letterhead 


quote & inv. # 


envelope 


w/auto sequencing 


multiple copy 


auto date 


emphasized 


send for more information: 32k ECB disc 


Challenger Software 


42 4th Street 




Pennsburg, PA 18073 


Call (215) 679-8792 (Evenings) 
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MOVESTACK MOVES A STACK OF M 
RINGS FROM TOWER :A TO :B. TO 
MOVE RING :M TO TOWER :B, A MES- 
SAGE :B IS SENT TO RING TURTLE M 
(CONTROLLED BY PROC. RING). AFTER 
ISSUING THE ORDER TO MOVE RING 
TURTLE M, MOVESTACK WAITS FOR 
CONFIRMATION OF COMPLETION OF 
MOVE BEFORE CONTINUING. :C IS A 
LOCAL VARIABLE. 

TO MOVESTACK :M :A :B :C 
IF :M = 0(STOP) 
MAKE :C6-:A-:B 
MOVESTACK (:M - 1) :A :C 
SEND :M :B 

WHILE NOT MAIL :M ( ) 
MOVESTACK (:M-1):C :B 
END 

TOWER CONTROLS TOWER TURTLES 
101-103. EACH TOWER TURTLE 
DRAWS ITS TOWER, AND THEN SITS IN 
THE LOWEST UNUSED POSITION. IT 
MOVES UP OR DOWN WHEN MAIL SAYS 
A RING HAS LEFT OR ARRIVED. :MSG IS 
A LOCAL VARIABLE. 

TO TOWER :N :MSG 
HT PC 2 



COCO SOLVER with 
PROGRAM GENERATOR 

"An advanced programmable calculator." 
"Conjures the image of instant programming." 

-HOT CoCo Review, May 1985 
Generates program automatically from 
COCO SOLVER data files. 



COCO BASE I: 



A relational database manager with pro- 
grammable language. Creates a database 
structure, inputs and edits records and gen- 
erates reports. 

All programs require 32K Extended BASIC. 

COCO SOLVER with 

PROGRAM GENERATOR- $49 95 

+ $2 S & H, Tape or Disk. 

COCO BASE I-$49.95 

+ $2 S & H, Disk only. 

Check or money order accepted. 

JTJ ENTERPRISES 

P.O. Box 110841, 
Nashville, TN 37211 
(615) 358-2635 or (615) 331 0364 
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SX64*(ME-100) 
SY 56 

SH 90 FD 8 BK 16 FD 8 
LT90 FD (8*(:N+1)) 
PU 

IF ME=101(SY (56 + 8*(:N+l))) 
ELSE (SY 64) 
WHILE 1 

( MAKE :MSG MAIL 255 
IF :MSG = 1 (BK 8) 
ELSE 

( IF:MSG = 2(FD8)) 

) 

END 

RING CONTROLS RING TURTLES 
1. . .N. HI IS THE INITIAL HEIGHT OF 
THE RING TURTLE ON STACK 1 (FROM 
SETUP). HI, Tl STORE CURRENT 
HEIGHT AND TOWER NUMBER OF 
RING. UPON RECEIVING MESSAGE T2 
(FROM MOVESTACK), RING MOVES 
RING TURTLE TO TOWER T2 AND RE- 
SETS (BY MAIL) THE AFFECTED TOW- 
ERS. Tl. H2, T2 ARE LOCAL 
VARIABLES. 



TO RING :H1 :T1 :H2 :T2 
PU HT SH 0 



Sweeten Your CoCo 
With a Little Sugar 

Our popular products for the CoCo 
include: 

^CoCo Calligrapher — $24.95 T; 

$29.95 D 
$ OS-9 Calligrapher — $39.95 D 
^Rental Property — $34.95 D 
^Color Disk Manager — $34.95 D 

* Sports Statistics Packages: 

Each $29.95 D 
Football Basketball 
Baseball Soccer 

^TIMS — $24.95 T 

^Prereader — $19.95 T; $24.95 D 

* Galactic Hangman — $17.95 T 
^Great USA — $19.95 T; $24.95 D 

Mention Hot CoCo in your mail or 
phone order and receive a free gift! 

Write for our complete catalog of 
Sugar Software products and 
descriptions. 

Dealer and author inquiries are 
always welcome. Disk software 
compatible with Radio Shack 

DOS Only. Circle Reader Service card #144 

Add Si. 50 per program for postage 
and handling. Florida residents add 
5% sales tax. COD orders are wel- 
come. CIS orders EMAIL to 70405, 
1374. Xo refunds or exchanges. 

SUGAR SOFTWARE 

1710 North 50th Avenue 
Hollywood, Florida 33021 
(305) 981-1241 



MAKE :T1 101 
SX 64 SY :H1 
MAKEME 
ST 

WHILE 1 

( MAKE :T2MAIL0 
IF :T2< >0 
( MAKE :T2 10Q + :T2 
MAKE :H2YLOC:T2 
SEND :T1 1 
SEND :T2 2 
F (120- :H1) 
IF :T2>:T1 (SH 90) 
ELSE (SH270) 
F (ABS(:T2-:T1)*64) 
SH 180F(120-:H2) 
SH 0 
SEND 0 1 
MAKE :T1:T2 
MAKE :H1 :H2 



END 

F MOVES A TURTLE A DISTANCE :D, 
STOPPING PERIODICALLY TO SHOW 
THE TURTLE. THIS ANIMATES THE 
MOVEMENT. 



TO F :D 
REPEAT 
(FD8) 

END 



D/8 



MAKEME GIVES SHAPE TO RING TUR- 
TLE N< = 6. 

TO MAKEME 
IF ME = 1 

( SHAPE RRUBBBDFFFFFFUBBB 
STOP) 
IF ME = 2 

( SHAPE RRUBBBBBBDFFFFFFFFFFF- 
FUBBBBBB 
STOP) 
IF ME = 3 

( SHAPE RRUBBBBBBBBBDFFFFFFF- 
FFFFFFFFFFFUBBBBBBBBB 

IF ME = 4 

( SHAPE RR- 
UBBBBBBBBBBBBDFFFFFFFFFFFF- 
FFFFFFFFFFFFUBBBBBBBBBBBB 
STOP) 

IF ME = 5 

( SHAPE RRUBBBBBBBBBBBBBBBBB- 
BDFFFFFFFFFFFFFFFFFFFFFFFF 
FFFFFFUBBBBBBBBBBBBBBB 
STOP) 

IF ME = 6 

( SHAPE RRUBBBBBBBBBBBBBBBB 
BBDFFFFFFFFFFFFFFFFFFFFFFFF- 
FFFFFFFFFFFFUBBBBBBBBBBBBB- 
BBBBB 

STOP) 
END 
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UTILITY*—— m 
by Bruce Bauder 



This program is available on our Instant CoCo cassette. 
See the Instant CoCo ad elsewhere in this issue. 




in Basic 



Hook up with a more effective method for sorting lists. 



If you've ever struggled with maintaining a 
sorted list in arrays, Linksort is for you. 
(See Listing.) It demonstrates the use of 
linked lists in Basic and can be used in hobby 
and business applications. 

What Are Linked Lists? 

A linked list is a dynamic data structure 
used in languages like Pascal. The size of the 
list can increase or decrease as the number 
of elements changes. Arrays and other data 
structures stored in memory are static— their 



dimensions are declared early in the pro- 
gram with a DIM statement. When you want 
to insert or delete information and yet main- 
tain data in alphabetical order, arrays can 
cause headaches. If the list is arranged con- 
tiguously (organized from top to bottom, as 
in Fig. 1), insertion or deletion requires shift- 
ing part of the array up or down by one place 
(Fig. 2). If the array is large, this process can 
take time. 

In Pascal, linked lists provide a way of 
avoiding these problems. Figure 3 will help 
you understand the underlying concept. The 





NAME$ 




NAME$ 
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Amy 
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Fig. I. List Ordered from Top to Bottom 



Fig. 2. Inserting a New Element into a List 



FIRST 



Amy 




— > 


Bill 






Cathy 






Dave 














— > 





Fig. 3. Linked Cells 



variable, FIRST, points to the first cell. The 
left portion of each cell contains the name; 
the right segment contains the pointer that 
links the cell to the next element in the list. 
The exact location of each cell within the ar- 
ray is of no consequence. 

Representing linked lists in arrays is pow- 
erful in languages such as Basic, Fortran, 
and Cobol, which don't have pointers and dy- 
namic storage. Setting up the list is simple. 
Linksort uses four arrays: NAME$, which 
holds the names in the list; PTR, which pro- 
vides the link to the next cell in the list; 
BALANCE, which holds the customer's bal- 
ance; and AVAIL, which is used to delete 
names from the list and keep track of the po- 
sitions of deleted cells. The number of names 
in the list is represented by the variable, 
NUMBER. 

Figure 4 shows an example of a list contain- 
ing 10 names that are linked in alphabetical 
order but arranged randomly. This can be 
confusing, but if you think in terms of the 
links— not the array— the concept should be 
easier to grasp. If you trace through the table 
you will see that the linking between cells 
places the names in alphabetical order. 
PTR(O) marks the first name in the list, 
NAME$(7)— Amy, in this case. PTR(7) con- 
tains 4, which means that the next name is 
NAME$(4), Bill. To check the remainder of the 
list, proceed in the same manner, looking in 
PTR for the subscript of the name in NAME$ 
and using that subscript to tell you what the 
next PTR value is. The zero in PTR(8) signifies 
that its corresponding element in NAME$ is 
the last name in the list. 

System Requirements 

16K RAM 
Color Basic 
Printer Optional 
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Fig. 4. Linked List 
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Gary 
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Points to "Amy" 



Third name— "Cathy" 



Second name— "Bill" 



Inserting Information 

The real power of linked lists lies in insert- 
ing and deleting cells. Figure 5 shows how 
the name, Ben, would be inserted into the 
list. If you were not using a linked array, Ben 
would be placed between Amy and Bill by 
shifting Bill and the names that follow down 
one cell and inserting Ben in the empty cell 
(Fig. 2). With linked lists, you can simply in- 
sert additions into the next empty cell and 
change the appropriate pointers. To better 
understand this process, refer to lines 900- 
1010, the Search for Insert routine, and lines 
1020-1220, the Insert Customer routine. 
The variable TEMP points to the current 
name in the list and BACK points to the name 
immediately preceding it. Trace through the 



code with the example for Ben, keeping track 
of the values of P, BACK, TEMP, and the pro- 
cedure should become clear. 



Problems with Deletion 

Deleting names isn't quite as easy as in- 
serting them; the structure of arrays can 
cause problems. After an entry is deleted, 
that cell still takes up space in the array, thus 
wasting memory. To overcome this difficulty, 
Linksort uses the array, AVAIL, and the var- 
iable, COUNT, to keep track of the number of 
cells available for insertion. A second varia- 
ble, DCELL, keeps track of the next available 
cell in NAME$ (and its counterpart, PTR). 
AVAIL records the locations (subscripts) of 



deleted cells; as each cell is deleted, its posi- 
tion is stored in AVAIL, to be filled when the 
next insertion is made. 

In Fig. 6, Ben has been deleted from the 
list. The name hasn't been removed from the 
array, but the pointers are set to move from 
Amy to Bill. DCELL contains the subscript of 
the next available cell— 1 1 in this case. 

To understand deletion, trace the Search 
and Delete routine (lines 1230-1380). The 
routine reads in the name to be deleted as 
DE$ and searches the list from the first ele- 
ment to the last, comparing each name to 
DE$. If a match is found, the program calls 
the Delete Customer routine (lines 1390- 
1470). The cell is deleted by changing the 
BACK pointer; the position of the deleted cell, 
11, is stored in AVAIL and used for the next 
insert. If no match is found, an error message 
is printed because the name is not in the list. 

The Search for Insert and Insert Customer 
routines check COUNT before adding a new 
name as the last element in the list. If its 
value is greater than zero, there are empty 
cells within the list. The routine inserts the 
new name in the cell to which DCELL points 
and changes BACK to point to it. If there are 
no available cells within the list, the name is 
inserted at the end of the list. 



Using Linksort 

After displaying preliminary prompts for 
cassette, disk drive, and printer, Linksort 
brings up a menu with six options: 



Create File 
Read File 
Insert New Name 
Delete Name 
Print the List 
Save and Exit 
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Fig. 5. Inserting an Element in a Linked List Fig. 6. Deleting an Element from a Linked List 



11 



COUNT 
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Each menu item corresponds to a subroutine 
within the program. I have documented the 
start of each block to simplify debugging and 
modification. (See Table 1 for a list of pro- 
gram variables.) If you need to restructure 
the program, you will only need to rearrange 
a few lines in the main loop. 

Linksort should work in all versions of Ba- 
sic. I used it on an IBM PC and it ran fine. The 
only limitation on creating additional rec- 
ords or increasing the number of customers 
is the amount of memory your computer has. 

BALANCE holds the balance of the corre- 
sponding name in NAME$; e.g., BAL- 
ANCE(37) holds the balance for NAME$(37). 
You can easily create large records by adding 
other parallel arrays, such as ADDRESS and 
ACCTNO, and a few lines of code to update 
them whenever NAME$ is affected. You can 
also add routines to update a customer's bal- 
ance, perform transactions, keep track of in- 
ventory, maintain a recipe file, and so on. 
Experiment with the program; you will learn 
more that way and might develop powerful 
applications for it. 

Linked lists in Basic are an efficient way of 
creating and sorting lists of any kind. When 
you create a new file, you can enter the 



NAMES 


Array to hold customer names. 


PTR 


Pointer array. 


BALANCE 


Array to hold customer bal- 




ances. 


AVAIL 


Available (deleted) cell array. 


DEVICE 


Tape or disk identifier. 


HC$ 


Send output to printer. 


CUS$ 


Input customer name. 


AMT 


Input customer balance. 


NUMBER 


Number of customers in list. 


TEMP 


Link to next name in array 




NAME$. 


DCELL 


Position in NAME$ of previ- 




ously deleted cell. 


DE$ 


Input name of customer to de- 




lete. 


BACK 


Pointer to name preceding 




current name. 


COUNT 


Number of available (deleted) 




cells. 



Table 1. Program Variables 



names in any order because they are alpha- 
betized as you enter them. And you needn't 
confine the list to names; Linksort will alpha- 



betize any character. Once you become com- 
fortable with the concept and methods used, 
I'm sure you'll use them for all of your list- 
management programs. ■ 

Address correspondence to Bruce Bander, 
910 Meadow Ave., Tillamook, OR 97141. 



Program Listing. Linksort 

10 CLS:PMODE 0:PCLEAR 1 : CLEAR 30 
00 

20 DIM NAME$ (100) , PTR ( 100 ) , BALAN 

CEQ00) ,AVAIL(100) 

30 PRINT@139, "-LINKSORT-" : PRINT 

40 PRINT@170 , "A LINKED LIST" 

50 PRINT@19 7 , "FILE MANAGEMENT PR 

OGRAM" 

60 PRINT@233 , "BY BRUCE BAUDER" 

70 PRINT @266, "MARCH 5, 1984" 

80 SCREEN 0,1 

90 FOR T=l TO 1500:NEXT 

100 CLS:INPUT " TAPE ( T ) OR DISK(D 

) " ;IO$ 

110 IF IO$="T" THEN DEVICE=-1 EL 
SE IF IO$="D" THEN DEVICE=1 ELSE 
100 

120 INPUT "OUTPUT LIST TO PRINTE 
R (Y/N) " ;HC$ : IF HC$ <> "Y" AND H 
C$ <> "N" THEN 120 



Full 
Character Set 

FOR 

CoCo or CoCo2 

Easy to install board adds: 

• All 96 Standard ASCII Characters 

• Upper & Lower Case Displayed Simultaneously 
with NO Inverse Video 

• True Lower Case Descenders 

• Braces & Vertical Bar Characters 

• Slashed Zero 

• Other Features 

Board is hardware driven and requires NO software 
drivers. NO effect on any memory. 
Enhances CoCo screen for: 

OS-9 Operating System Programming 
"C" Language Programming y^^v 
Word Processing u^x\ 
Communications Terminal Modes rainbow 



PRICE $38.00 

(+$2.00 shipping/handling if charge) 



CERTIFICATION 
SEAL 



CoCo COMM-4 



Multi-Tasking 




4 Channel Serial Communication Interface 

Simultaneous I/O operations using COMM-4 plug- 
in pack to get: 

• 4 independent RS-232 channels 

• Standard DB-25 female connectors 

• No software timing loops 

• OS-9 device drivers on disc 

• Basic & ML drivers easy to create 

• Interrupt driven for fast response 

• Standard Baud rates 11 0-1 9200 

• Complete documentation package 

. Use for multiple printers, terminals, modems, etc., 
etc. Plug directly into CoCo expansion pack (Note: 
requires buffered expansion and power supply). 

PRICE $89.00 

(+$3.50 shipping/handling if charge) 




These and other products from CoCo Devices, THE 'IN' CROWD 
(IN-novative products at IN-expensive prices). 
CoCo Devices 



Box 677, Seabrodk, TX 77586 
713—474-3232 



Circle Reader Service card #75 



Tell them "I saw it in HOT CoCo." 
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130 IF HC$="Y n THEN PRINT : PRINT 
"MAKE SURE PRINTER IS READY. " : FO 
R Y = 1 TO 1000:NEXT 
140 " 

150 '************************** 

160 1 * MAIN LOOP STARTS HERE * 
170 *************************** 

180 CLS 6 

190 PRINT@0,STRING$(32, ) ; 

200 PRINT (3103, "< ENTER CHOICE NUM 

BER>" ; 

210 PRINT(ai35,STRING$(21 / "*") ; 
220 PRINT(§199, "1) CREATE FILE 



230 

n 


PRINT@231, 


"2) 


READ FILE 


240 
E " 


PRINT@263 , 


"3) 


INSERT NEW NAM 


250 

n 


PRINT@295 , 


B 4) 


DELETE NAME 


260 

n 


PRINT9327, 


w 5) 


PRINT THE LIST 


270 


PRINT@359, 


n 6) 


SAVE AND EXIT 



280 PRINT@480,STRING$(31,"*" ) ; 

290 POKE 1535,106 

300 T$=INKEY$:IF T$="" THEN 300 

310 T=VAL(T$) 

320 IF T<1 OR T>6 THEN 300 

330 ON T GOSUB 420,570,340,1230, 

1480,390 

340 IF T=3 THEN GOSUB 800:GOSUB 
890 'INSERT 



350 IF T=3 THEN PRINT" INSERT ANO 

THER ( Y/N ) " ELSE 380 

360 U$=INKEY$:IF U$= n " THEN 360 

370 IF U$="Y" THEN 340 

380 GOTO 180 

390 GOSUB 1710:GOTO 1860 'SAVE 

AND EXIT 
400 ' 
410 ' 

420 1 ************************* * 

430 ' * CREATE NEW FILE * 
440 »** *********************** * 

450 CLS:NUMBER=0 

460 PRINT " ENTER NAMES AND BALANC 
ES" 

470 PRINT"TYPE 'XX' WHEN FINISHE 
D" 

480 LINE INPUT " NAME? " ; CUS$ 

490 IF CUS$= M XX" THEN 530 

500 INPUT "BALANCE" ;AMT 

510 GOSUB 890 'SEARCH AND IN 

SERT 

520 GOTO 480 'GET NEXT RECO 

RD 

530 GOSUB 1710 'SAVE LIST 

540 RETURN 
550 ' 
560 ' 

570 ' ************************** 

580 ' * READ IN FILE * 

590 ' ************************** 

600 CLS:IF DEVICE=1 THEN 650 
610 PRINT " REWIND TAPE TO START" 



620 PRINT "PRESS PLAY ON RECORDE 
R" 

630 PRINT "PRESS <ENTER> WHEN RE 
ADY" 

640 Z$=INKEY$:IF Z$="" THEN 640 

650 OPEN "I",#DEVICE, "NAMES" 

660 NUMBER=1:G=0 

670 IF EOF(DEVICE) THEN 750 

680 INPUT #DEVICE,CUS$ 'READ N 

AME 

690 INPUT # DEVICE , AMT 'READ B 

ALANCE 

700 NAME$(NUMBER)=CUS$ 'INSERT 
NAME 

710 BALANCE ( NUMBER ) =AMT 'INSERT 
BALANCE 

720 PTR ( G ) =NUMBER 'SET PO 

INTER 

730 NUMBER=NUMBER+1 :G=G+1 

740 GOTO 670 

750 CLOSE #DEVICE 

760 NUMB ER= NUMB ER-1 

770 RETURN 

780 ' 

790 ' 

800 *************************** 
810 '* GET CUSTOMER * 
820 *************************** 

830 CLS 

840 LINE INPUT "ENTER CUSTOMER N 
AME: ";CUS$ 

850 INPUT "ENTER CUSTOMER BALANC 
E" ; AMT 



Introducing... cpg <^y^ ]^ 



PENPAL provides you with a 
package that combines the five 
most wanted applications in one 
incredibly easy-to-use integrated 
environment. What would you pay 
for a package that does it all, but 
does it easily? 

Packages like this cost hundreds 
more on other machines. PENPAL 
brings the power of a PC to your 
CoCo at an unbelievable and 
unbeatable price! We guarantee 
it. . . If you are not satisfied, return 
it within 30 days for a refund. 

Order your personal copy of 
PENPAL today to finally realize the 
full potential of your Color 
Computer. 



Write for free catalogue 
of our other great products 
Circle Reader Service card #25 



the intelligent choice. 

$69.95* 



(89.95 CDN) 




64K AND AT LEAST 
ONE DISK DRIVE REQUIRED 

P.O. BOX 730 
STREETSVILLE, ONTARIO 
CANADA L5M 2C2 

(416) 858-STAR 



• Twelve 
function keys 
and a continuously 
displayed reminder line ^ 
make PENPAL easy to 
use. No complicated key 
combinations to remember. 

• On-line help feature for each 
module 

• Hi-Res 51 x 24 screen display 

• Combines a 255 x 255 
spreadsheet, text processor, 
database, presentation quality 
graph creator and full 
telecommunications into ONE 
package 

• Modules interface with each 
other to form a truly integrated 
package, not just separate 
programs called from a central 
menu like others offer! 

• Common formats and commands 
in all modules. This package is 
extremely user friendly. 

Cheque or Money Order 
Add $2.50 shipping 



Ont. Residents add 7% tax 



FOUR STAR SOFTWARE 
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860 RETURN 
870 • 
880 " 

390 >***** * ******************* * 

900 ' * SEARCH FOR INSERT * 

910 *************************** 

920 P=0 

930 TEMP=PTR(P) 'GET LI 

NK 

940 IF P=0 THEN BACK=P 'FIRST 
CELL IN LIST 

950 IF (CUS$ < NAME$ ( TEMP ) ) OR ( 
PTR(P)=0) THEN GOSUB 1010:RETURN 

'IF FOUND THEN INSERT 
960 BACK=PTR(P) 
970 P=TEMP 
980 GOTO 930 
990 ' 

If 



1010 ************************** 
1020 '* INSERT CUSTOMER * 
1030 ************************** 

1040 IF COUNT > 0 THEN 1140 'A 
VAILABLE CELLS 
1050 NUMBER=NUMBER+1 
1060 NAME$ ( NUMBER ) =CUS$ : BALANCE ( 
NUMBER) =AMT 'INSERT NAME AND 

BALANCE 

1070 IF PTR(P)=0 THEN 1110 1 L 

AST ELEMENT IN LIST 
1080 PTR ( NUMBER ) =PTR ( P ) 'P 
OINT TO NEXT CELL 

1090 PTR ( P ) = NUMBER 'P 
OINT TO NEW CELL 
1100 RETURN 

1110 PTR ( P ) = NUMBER ' I 

NSERT END OF LIST 
1120 PTR ( NUMBER ) =0 
1130 RETURN 

1140 DCELL=AVAIL ( COUNT ) 'G 
ET AVAILABLE CELL 

1150 NAME$(DCELL)=CUS$ 'I 
NSERT NAME ' 

1160 BALANCE ( DCELL ) =AMT 'I 
NSERT BALANCE 

1170 PTR (DCELL ) =TEMP 'P 
OINT TO NEXT CELL 

1180 PTR ( BACK )= DCELL 'P 

OINT TO NEW CELL 

1190 COUNT=COUNT-l 

1200 RETURN 

1210 ' 

1220 ' 

1230 ************************** 

1240 ' * SEARCH FOR DELETE * 
1250 '************************* 

1260 CLS 

1270 LINE INPUT "NAME TO DELETE? 

" ;DE$ 
1280 P=0 

1290 IF NUMBER < 1 THEN RETURN 

1300 TEMP = PTR(P)- 'GET LINK 

1310 IF P=0 THEN BACK=P 

1320 IF (PTR(TEMP)=0) AND (NAME$ 

(TEMP) <> DE$) THEN PRINT "SEARC 

H FAILURE. " DE$ " NOT IN LIST":FO 

R CT=1 TO 1000:NEXT:RETURN 

1330 IF NAME$ (TEMP)=DE$ THEN GOS 

UB 1390:RETURN 'DELETE NAM 

E 

1340 BACK=PTR(P) 
1350 P=TEMP 

1360 GOTO 1300 'SEARCH NEX 

T CELL 
1370 ' 
1380 ' 

1390 ************************** 



1400 '* DELETE CUSTOMER * 

1410 ************************** 

1420 PTR ( BACK ) =PTR ( TEMP ) 

'POINT AROUND CELL 
1430 IF PTR(TEMP)=0 THEN NUMBER= 
NUMBER-1: RETURN 'LAST CELL 

IN LIST 

1440 COUNT=COUNT+l : AVAIL (COUNT )= 
TEMP 'STORE POSITION OF CEL 

L 

1450 RETURN 
1460 ' 
1470 ' 

1480 ************************** 

1490 '* PRINT LIST * 

1500 ************************** 
1510 CLS: J=0:CT=0:TT=0:ST=0 
1520 IF HC$ = "Y" THEN PRINT#-2,"N 
AME " , " " , "BALANCE" 

1530 IF HC$="Y" THEN PRINT#-2,CH 

R$(ll) ; :PRINT#-2," ■ , " ■ , 9 

" :PRINT#-2 

1540 PRINT "NAME" , "BALANCE" :PRIN 
T 

1550 TEMP=PTR(J) 

1560 IF TEMP=0 THEN 1630 

1570 ST= BALANCE ( TEMP ) 

1580 PRINT NAME$ ( TEMP ),"";: PRINT 

USING "$#####.##"; BALANCE ( TEMP ) 

1590 IF HC$="Y" THEN PRINT#-2,NA 

ME$ (TEMP) ,"","";: PRINT#-2 , USING" 

$#####.##"; BALANCE (TEMP ) 

1600 IF TEMP=0 THEN 1650 

1610 CT=CT+1 : TT=TT+ST 

1620 J=TEMP:GOTO 1550 'PRINT 

NEXT CELL 
1630 PRINT : PRINT "TOTAL CUSTOMER 
S: " ;CT: PRINT"TOTAL BALANCE: " ; :PR 
INT USING"$######.##";TT 
1640 IF HC$="Y" THEN PRINT#-2:PR 
INT#-2, "TOTAL CUSTOMERS: " ;CT:PRI 
NT#-2, "TOTAL BALANCE: " ; :PRINT#-2 
,USING"$######.##";TT 
1650 PRINT : PRINT "PRESS ANY KEY 
TO CONTINUE" 

1660 IF HC$="Y" THEN FOR T=l TO 
5:PRINT#-2:NEXT 

1670 K$=INKEY$:IF K$="" THEN 167 
0 

1680 RETURN 
1690 ' 
1700 ' 

1710 ************************** 

1720 '* SAVE LIST * 

1730 ************************** 

1740 IF DEVICE=1 THEN 1780 

1750 CLS:PRINT "PRESS PLAY AND R 

ECORD" 

1760 PRINT "HIT ANY KEY WHEN REA 
DY" 

1770 G$=INKEY$:IF G$="" THEN 177 
0 

1780 J=0:OPEN "0" , #DEVICE , "NAMES 

H 

1790 TEMP=PTR(J) 

1800 IF TEMP=0 THEN 1840 

1810 PRINT #DEVICE,NAME$ (TEMP) 

1820 PRINT # DEVICE , BALANCE ( TEMP ) 

1830 J=TEMP:GOTO 1790 

1840 CLOSE #DEVICE 

1850 RETURN 

1860 INPUT " CONFIRM EXIT (Y/N)" 
;EX$ 

1870 IF EX$ = "Y" THEN' 1880 ELSE I 
F EX$="N" THEN 180 ELSE 1860 

1880 END 



DISK SYSTEM 
FOR THE CO-CO 
2 THINLINE DOUBLE SIDED 
DOUBLE DENSITY DISK DRIVES 
SYSTEM WITH POWER SUPPLY, 
CABINET, DISK DRIVE CABLE, 
MANUAL, J&M NEW DISK 
CONTROLLER JFD-CP WITH J-DOS, 
RS-DOS OPERATING SYSTEMS. 
$469.95 

DISK CONTROLLERS 
WITH MANUAL 

J&M JFD-CP WITH J-DOS $139.95 
WITH J-DOS, A RS-DOS $159.95 
RADIO SHACK 1.1 $134.95 
DISK DRIVE CABLES 

CABLE FOR ONE DRIVE $19.95 
CABLE FOR TWO DRIVES $24.95 
MISC 

64K UPGRADE W/MOD 
INSTRUCTIONS C,D,E,F AND CO- 
CO 2 $39.95 
RADIO SHACK BASIC 1.2 $24.95 
RADIO SHACK DISK BASIC 1.1 

$24.95 

DISK DRIVE CABINET, WITH 
POWER SUPPLY FOR A SINGLE 
DRIVE $49.95 
DISK DRIVE CABINET, WITH 
POWER SUPPLY FOR 2 HALF SIZE 
DRIVE $59.95 
HJL-57 KEYBOARDS $74.95 
VERBATIM DS,DD BOX OF 10 
DISKS $22.00 
VERBATIM SS,DD BOX OF 10 



DISKS 



$20.00 



DISK PRICES INCLUDE SHIPPING 

COMPLETE LINE OF EPSON 
PRINTERS AND INTERFACES CALL 
FOR LOW PRICE. 

CoCo FLEX OPERATING SYSTEM — 
The ORIGINAL CoCo FLEX!! 

FLEX-CoCo Jr. $49.95 

Includes the original 51 
Col. Display, Mem. and Disk 
Examine/Change, Transfer 
FLEX Files to CoCo or CoCo 
Files to FLEX, etc., etc. 
Does NOT include the Editor 
or Assembler! 

FLEX-CoCo Sr. $79.95 
Same as "Jr." except WITH 
the Editor and Assembler. 
FLEX OPERATING SYSTEM INCLUDE 
OVER 50 UTILITIES 

SHIPPING ADD b% USA, 10?o 
FOREIGN 

Circle Reader Service card #213 



DATA-COMP 
5900 CASSANDRA SMITH RD. 
HIXSON. TN 37343 
(615) 842-4601 

FLFX is a Trademark of 
technical System Consultants 
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UTILITY 



This program is available on our Instant CoCo cassette. 1 1 I ffffl^ J 



DV ROD©!"! GSUlt S® 6 the lnstant CoCo ad elsewhere in this issue. 1 — vOLO; 



resete Sas/c programs. 



Reset Button 



You have probably heard of machine- 
language programs that will disable 
the break key. Now you can be the first on 
your block to tame your CoCo's reset button. 

Listing 1 is a short Assembly program that 
redirects the normal restart routines so that 
when you press the reset button, the pro- 
gram starts at any line number desired. To 
achieve a flexible start, the reset sequence 
(described on p. 208 of Going Ahead with Ex- 
tended Color Basic) is modified. 

Here's what the reset button does. First, it 
resets most of the CoCo's main circuits to a 
clear condition. This means that your CoCo 
gets amnesia. Second, it synchronizes the 
video chip (VDG) at random to the leading or 
trailing edge of the main clock's square 
wave. In short, the artifact colors of PMODE4 
change. Third, the master chip (6809E) does 
an automatic restart (JMP [$FFFE]), which 
for the CoCo means start at $A027 in the 
Color Basic ROM. Fourth, either the text 
screen appears with 4 'OK" or the copyright 
message appears with "OK". 

Program Listing 2 illustrates how you can 
make your CoCo restart at any line of your 
program automatically on release of the reset 
button. Listing 2 restarts at three different 
locations depending on when the reset but- 
ton is pushed. Note that the first use of the 
reset button simulates the start of Radio 
Shack's Sands of Egypt, where the artifact 
colors are selected. 

Listing 1 works with the Color Basic 1.0 or 
1.1, Extended Color Basic 1.0, and Disk 
Color Basic 1 .0 ROMs. If you have the disk 
Basic 1.1 ROM, see the comment in line 460 
for the necessary changes. If you do not have 
Extended Color Basic, the program assumes 
that you will not be using PMODE graphics. 
You can add a section of code at the indicated 
spot to directly set the SAM chip. 

To keep the program as short as possible, 
undocumented ROM routines are used. I will 
describe what these routines do and include 
below the first few commands in each so you 
can find them in your version of ROM if they 
have been relocated: 

Locations $72-73 are a warm-start reset vec- 
tor CB $A0E8; EXCB $80C0; DCB $C0D4 



0A0E8/ NOP 
080C0/ NOP 
0C0D4/ NOP 
0A0E9/CLR <6F 
080C1/CLR <0E3 
0C0D5/ BSR OCODD 
OAOEB/JSR >0AD33 
080C3/CLR <0E4 
0C0D7/JSR >0D1E5 
OAOEE/ ANDCC #0AF 
080C5/LDA>0FF03 
0C0DAAJMP>080C0 

The vector at $183 is called before each key- 
board input = RTS. 

$AD03 converts the hex line number in regis- 
ter D to line location plus one in locations 
$47-48. 

0AD03/ LDX < 19 

0AD05/ LDU ,X 
0AD07/ BEQ 0AD12 
0AD09/ CMPD 2,X 

$95CF executes the SCREEN l,n command 
using the last value given. This is part of Ex- 
tended Color Basic. You can set $FF22 and 
$FFC0-$FFD3 directly. 

095CF/ PSHS X,B,A 
095D1/LDA <0B6 

095D3/ ADDA #3 

095D5/ LDB#10 

$ADA7 executes the line at the location in 
register X. 

0ADA7/STX <2F 
0ADA9/ LDA ,X + 
OADAB/ BEQ 0ADB4 



System Requirements 

16K RAM 
Color Basic (Without Graphics) 
Extended Color Basic 
(With Graphics) 
Editor/Assembler 



OADAD/ CMPA #3A 
OADAF/ BEQ OADCO 
0ADB1/JMP >0B277 

Listing 1 is position independent so it can 
be located anywhere convenient. Note, how- 
ever, that the vectors at $72 and $183 must 
be reset either manually with POKEs or by 
reassembling the listing. Further, you must 
keep track of the locations of variables 
LNNUM and FLAG2 since your Basic pro- 
gram must communicate with them. 

Listing 2 is shown used with a tape system, 
but the machine-language routines can be 
LOADMed from disk or POKEd from data. 
Line 1 is a subroutine that loads the ma- 
chine-language variables LNNUM and 
FLAG2. It should be called before a new start 
line is required. The Basic variables LN and 
SC are converted into the machine-language 
variables LNNUM and FLAG2. Thus, LN 
should be made equal to the line to which the 
reset button should branch. To obtain a text 
screen make SC = 0; to obtain a graphic 
screen make SC = 1. Listing 2 assumes the 
presence of Extended Color Basic. Those of 
you with only Color Basic should replace the 
graphics commands with something else. 

A few precautions are advisable. Do not 
point LNNUM into a FOR. . .NEXT loop or 
toward a RETURN as Basic's stack has been 
reset and an error will result. Do not point 
into a graphics routine in progress unless 
you are sure of the results. Not only may the 
artifact colors change, but other problems 
occur as well. As an example, don't try to 
rePAINT something already painted the de- 
sired color. Be careful of mixed graphic 
modes as they can be canceled. 

If the above has not stimulated your imag- 
ination, consider that only minor adjust- 
ments are needed for the following 
applications: auto-restart of programs at any 
line number; auto-restart after an error; im- 
plementation of anti-theft schemes; preven- 
tion or loss of the all-RAM (64K) mode. ■ 



Address correspondence to Robert Gault, 
832 N. Renaud, Grosse Point Woods, WI 48236. 
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Program Listing 1 . Reset Button Tamer 



0072 




7F06 


7F00 






7F00 






7F02 




00 


7F03 






7F05 




00 


7F06 


12 




7F07 


EC 


8C F6 


7F0A 


BD 


AD03 


7F0D 


25 


OB 


7F0F 


63 


8C F3 


7F12 


DC 


47 


7F14 


8 3 


0001 


7F17 


ED 


8C E9 



7F1A 


CC 


444B 


7F1D 


10B3 


COOO 


7F21 


26 


03 


7F23 


7E 


C0D4 


7F26 


CC 


4558 


7F29 


10B3 


8000 


7F2D 


26 


03 


7F2F 


7E 


80C0 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 



'TAME YOUR RESET BUTTON 
*BY ROBERT GAULT 2/2/85 



CHANGE WARM START VECTOR 
ORG $72 
FDB RESET 
START OF NEW ROUTINES 
PLACE TO SUIT BUT BE 
SURE TO CLEAR M.L. SPACE 
IN BASIC PROGRAM 
ORG $7F00 
RMB 2 LINE NUMBER 
FCB 0 GRAPHICS 
RMB 2 LINE LOCAL 
FCB 0 RESET 
*NEW WARM START VECTOR 
RESET NOP *MUST BE HERE 
LDD LNNUM , PCR 
JSR $AD03 FIND 
BCS VECTOR LOC 
COM FLAG, PCR 
LDD $47 LN LOC+1 
SUBD #1 
STD LNLOC, PCR 
*$C0D4 FOR DISK 1.0 
*$80C0 FOR EX. BASIC 1.0 
*$A0E8 FOR BASIC 1.1 
*CHECK YOUR OWN SYSTEM 



LNNUM 
FLAG2 
LNLOC 
FLAG 



7F35 
7F37 
7F3A 
7F3C 



7F41 
7F44 



7F46 CC 
7F49 10B3 
7F4D 26 



01 

8C CB 

IE 

01 

8C C4 
8C BE 

oc 

4558 
8000 
03 



LDD #$444B DK 
CMPD $C000 
BNE VI 
JMP $C0D4 
LDD #$4558 EX 
CMPD $8000 
BNE V2 
JMP $80C0 



Program Listing 2. Sample Basic Program. Note 
the LN and SC variables in lines 2, 1 0, and 1 5. 

0 CLS:CLEAR200,&H7F00:CLOADM"RES 
ET" :GOT02 

1 POKE&H7F00, LN/256:POKE&H7F01,L 
N-2 56*INT(LN/256) : POKE&H7F02 , SC : 
RETURN 

2 LN=4 : SOI : GOSUB1 : CLS : PRINT "TUR 
N OFF TAPE RECORDER" : PRINT"PUSH 
THE RESET BUTTON AT ANY TIME 
DURING THIS PROGRAM AND WATCH 

WHAT HAPPENS. " : PRINT : PRINT" HIT 
ANY KEY" 

3 IFINKEY$=" "THEN 3 

4 PMODE4,l:PCLSl:SCREENl,l:PMODE 
3 

5 COLOR2,l:LINE(120 / 90)-(130,100 
) ,PSET,BF 

6 LN=7:SC=0:GOSUB1 

7 PMODE4, 1:CLS5:PRINT@168, "IF RE 
D PUSH reset " ; : PR I NT @ 200 , " IF BL 
UE PUSH ENTER"; 

8 FORT=1TO160 : NEXT : IFINKEY$=CHR$ 
( 13)THEN10 

9 SCREEN1 , 1 : FORT=1TO160 : NEXT : SCR 
EEN0 ,0:IFINKEY$=CHR$(13)THEN10EL 
SE8 

10 LN=ll:SC=l:GOSUBl 

11 PMODE4,l:PCLS:SCREENl,l:PMODE 
3,1 

12 CIRCLE (128, 96) ,96,4, .8:CIRCLE 
(90,70) ,9, 4: CIRCLE (16 6, 70) ,9,4 

13 PAINT(128,96) , 2 , 4 : PAINT ( 90 , 70 
) , 4,4:PAINT(166,70) ,4,4 

14 CIRCLE(128,110) ,70,3, .4, .05, . 
45: CIRCLE ( 128,145) , 10 , 3 , 1 . 5 , . 9 , . 
65:PAINT( 128, 145) , 3,3 

15 PMODE4,l:LN=16:SC=l:GOSUBl 

16 IFINKEY$=" "THEN 16 

17 CLS:PRINT"PUSH THE RESET BUTT 
ON 



7F57 
7F5A 



ADA7 
81 



*CHANGE TO C0E7 FOR DISK ROM1.1 



0182 

0182 7E 

0183 7F35 
0000 

00000 TOTAL ERRORS 



00510 V2 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 

00690 

00700 

00710 

00720 

00730 * 

00740 * 

00750 TEXT 

00760 * 

00770 * 

00780 

00790 

00800 

00810 

00820 

00830 

00840 

00850 

00860 

00870 

00880 

00890 



JMP $A0E8 PLAIN 



*NEW GET INPUT VECTOR 
RESTRT PSHS CC 

TST FLAG, PCR 
BEQ EXIT 
PULS CC 
*CLEAR RESTART CALL 

CLR FLAG, PCR 
*TEST FOR TEXT OR GRAHPIC 
TST FLAG2 , PCR 
BEQ TEXT 
♦TEST FOR EX. COLOR BASIC 
LDD #$4558 
CMPD $8000 
BNE TEXT 
*PMODE SCREEN CALL TO 
*EX. COLOR BASIC 1.0 
JSR $95CF 
♦LOAD RESTART LINE IN X 



LDX LNLOC, PCR 



♦INDICATE DIRECT 
♦COMMAND 

ANDCC #$AF 
♦EXECUTE LINE 

JMP $ ADA7 
EXIT PULS CC,PC 
♦CHANGE INPUT FROM 
♦KEYBOARD VECTOR 
ORG $182 
FCB $7E 
FDB RESTRT 
END 



CoCo Software for Visually Impaired 
or Physically Handicapped 

TALKING SOFTWARE — Requires Radio Shack's speech 
and sound module. Letter by Letter, Word by Word, Word 
and Punctuation are three programs which are designed to 
aid visually impaired CoCo users. Comes with talking book 
instructions and makes all BASIC programs speak.— $90. 

More software for the visually impaired! 

EARS, enhanced version— $1 10— normal version— $100. 

TERM TALK enables vision impaired to use CompuServe 
and other online services — $60. 

PRE-READ, reads Telewriter and Scripsit letters out loud!— 
$29. 

FOOLS CROSSING, graphics adventure— $34.95 with Talk- 
ing Book instructions. 

SUPER VOICE SPEECH SYNTHESIZER, sings, talks in 
six octaves— $79.95, $99.95 with Talking Book. 

All A.S.C. products have a satisfaction guarantee. We accept 

Checks Or money Orders. Circle Reader Service card #322 

A.S.C. Corporation 

3529 Genessee Rd., Lapeer, Michigan 48446 
(313) 664-3722 
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EDUCATION 

by James Wood 



This program is available on our Instant CoCo cassette. 
See the Instant CoCo ad elsewhere in this issue. 



instant 

CoCo 



3 



Teacher Helpers 

These programs make the computerized classroom 
more civilized for students and teachers. 



Classroom computers can benefit both 
students and teachers by improving 
the quality of education. Here are three pro- 
grams to help teachers use computers more 
effectively by individualizing student lessons 
and reducing their preparation and correc- 
tion workload. 

Personalized Programs 

If you have several short educational pro- 
grams that a student will run in succession, 
you can add a personal touch. Incorporate 
Listing 1 into the first program the student 
will use, placing it at the beginning of that 
program. The computer asks for the user's 
name and POKEs it into high memory, where 
it will be unaffected by other programs that 
are loaded from tape or disk. Place Listing 2 
at the beginning of subsequent programs. 
Before each new program begins, it wel- 
comes the student by bringing his name 
back from protected storage. 

The program is written for a 32K machine 
and will run under Color Basic or Extended 
Color Basic. To use it with 16K machines, 
change all occurrences of 32700 in Listings 
1 and 2 to 16316. If any of the programs you 
run contains a machine-language subroutine 
that is stored above memory location 32700, 
adjust the storage area for the Listings. Line 
10 in Listing 1 clears 200 bytes; increase this 
value if you need more storage space. 

True/False Test Generator 

How often have you wanted to create a 
true/false test quickly? Have you ever wished 
you could scramble the order of the ques- 
tions to make cheating more difficult for stu- 
dents with roving eyes? If you have a 16K 
CoCo with Extended Color Basic and an 80- 
column printer, True/False Generator (List- 
ing 3) can help you. Unfortunately, you still 
have to come up with the questions. 

The program stores your questions in a 
bank of DATA lines. The generator types out 
as many different arrangements of the test as 
you need, prevents the printer from splitting 
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CHEMISTRY '85 

TWO ELEMENTS COMBINE TO FORM A COMPOUND. THE SYMBOL FOR THE ELEMENT 
WHICH IS OXIDIZED IS ALWAYS PLACED ON THE LEFT IN THE COMPOUND' S 
FORMULA. 

SODIUM'S SYMBOL IS Na. 
OZONE IS TR I ATOMIC OXYGEN ,. 



2) 
3) 
4) 

5) 
6) 
7) 
B ) 
9) 
10) 



LOCATED ON THE LEFT SIDE OF THE PERIODIC TABLE OF THE 



THE NONMETALS ARE 
ELEMENTS. 

THERE ARE TWO OXYGEN ATOMS IN A HYDROXIDE 
A SOLUTION WITH A PH OF 3 IS BASIC. 
THE OXIDATION NUMBER FOR SULFATE IS -2. 
KINETIC ENERGY IS ENERGY DUE TO AN OBJECT 
FERROUS IS THE IRON ION WITH AN OXIDATION 
THE SYMBOL. FOR GOLD IS G. 



S MOTION. 
NUMBER OF 



Fig. 1. Student's Chemistry Test 



CHEMISTRY 



(T) 

m 

( F ) 

(F) 
( F ) 
(T) 
(T) 
(T ) 
( F ) 



2) 
3) 
4) 

r :< ) 
6) 
7 ) 
B) 
9) 
1 0 ) 



TWO ELE MENTS COMB INF TO FORM A COMPOUND. THE SYMBOL. FOR THE ELEMENT 
WHICH IS OXIDIZED IS ALWAYS PLACED ON THE LEFT IN THE COMPOUND'S 
FORMULA. 

SODIUM'S SYMBOL. IS Na. 
OZONE IS TR I ATOMIC OXYGEN. 

THE NONMETALS ARE LOCATED ON THE LEFT SIDE OF THE PERIODIC TABLE OF THE 
ELEMENTS. 

THERE ARE TWO OXYGEN ATOMS IN A HYDROXIDE ION,. 
A SOLUTION WITH A PH OF 3 IS BASIC. 
THE OXIDATION NUMBER FOR SULFATE IS -2. 
KINETIC ENERGY IS ENERGY DUE TO AN OBJECT'S MOTION. 
FERROUS IS THE IRON ION WITH AN OXIDATION NUMBER OF «-2. 
THE SYMBOL FOR GOLD IS G. 



Fig. 2. Teacher's Chemistry Test and Answer Key 



a word at the end of the line, and even lets you 
print answer keys. You can have the com- 
puter print a test using all the questions or 
create a test with fewer questions. The pro- 
gram shuffles the questions and ensures that 
each question appears only once per test. 

Modifying the program to suit your grade 
level and subject is easy. As you add DATA 
lines, increase the value of string space 
cleared (200) in line 10. If you do not add 
adequate space, an OS error occurs. Set the 
variable NN (also in line 10) to equal the num- 
ber of test questions plus one. If you have 25 
questions, for example, NN should equal 26. 

The program installs your questions in the 

System Requirements 

16K 

Extended Color Basic 



DATA statements numbered from 1010 up to 
10000. The proper format is: 

Line Number DATA Question., Answer 

State each question as a sentence and in- 
clude a period. Use a comma between the 
question and the answer, which will be either 
T or F. Be sure that the last DATA line reads: 

Line Number DATA END,E 

Figures 1 and 2 show printouts of student 
and teacher versions of a chemistry test. Can 
you imagine making a test that neat with a 
typewriter or creating different arrange- 
ments of the questions using that dreaded 
machine? ■ 

Address correspondence to James Wood at 
424 N. Missouri, Box 507, Atwood, IL 61913. 



Program Listing 1. Name Program that Re- 
sides in High Memory 

10 CLEAR200, 32700 

20 CLS : INPUT"WHAT IS YOUR NAME" ; 
NA$ 

30 L=LEN(NA$) : IF L>67 THEN PRINT 

■ NEED A SHORTER NAME * : GOTO20 

40 POKE32700,L 

50 FOR A=l TO L 

60 B=ASC(MID$(NA$,A,1) ) 

70 POKE A+32700,B:NEXTA 

80 REMARK PROGRAM STARTS HERE 

Program Listing 2. Welcome-Back Program 

10 CLS:L=PEEK(32700) 

20 PRINT" WELCOME BACK," 

30 FOR A=l TO L 

40 NA$=NA$+CHR$(PEEK(A+32700) ) :N 
EXT A : PRINTNA$ 

50 REMARK FOLLOWING PROGRAMS STA 
RT HERE 

Program Listing 3. True/False Test Generator 

10 CLEAR200:PCLEAR1:NN=13 

20 CLS : PR I NT "TRUE- FALSE TEST GEN 

ERATOR" 

30 INPUT"TITLE" ;T$ 

40 DIM Q$(NN) ,A$(NN) ,S(NN) , J W ( N N 
) :N = 1 

50 READ Q$(N) ,A$(N) 

60 IF Q$(N)="END" THEN 68 ELSE N 

=N+1:GOTO50 



68 N=N-1 

70 PRINT : PRINT "THERE ARE" ; N ; "QUE 
STIONS. " :PRINT"HOW MANY ARE TO B 
E ON THE TEST": INPUT NQ : I F NQ>N 
THEN 70 

80 PRINT : PRINT" PRINTER SHOULD BE 
CONNECTED, " :PRINT"AND TURNED ON 
BEFORE HITTING" :PRINT" ( ENTE 

R) " 

90 INPUT 10 

100 PRINT#-2,STRING$(40-LEN(T$)/ 
2,32) ;T$:PRINT#-2, H " 
110 FOR A=l TO NQ 

120 R=RND ( N ) : I F JW(R)=1 THEN 120 

ELSE JW(R)=1 
130 S(A)=R 

140 PRINT#-2,"( ) ";STR$(A);") " 
; :TL$=Q$(R) 

150 L=LEN ( TL$ ) : I F L<73 THEN PRIN 
T#-2,TL$:GOTO180 

160 FOR G=72 TO 30 STEP-1:IF MID 
$(TL$,G,1)=" " THEN 170 ELSE NEX 
T G 

170 PRINT#-2,LEFT$(TL$,G-1) :TL$= 
RIGHT $(TL$, L-G ) : PRINT#-2 , STRING$ 
(8,32) ; :GOTO150 
180 NEXT A 

190 FORA=1TO10:PRINT#-2,"":NEXT 
200 PRINT#-2,STRING$(40-LEN(T$)/ 
2,32) ;T$:PRINT#-2, n " 
210 F0RA=1T0 NQ 

220 PRINT#-2,"(";A$(S(A));") ";S 

TR$ ( A ) ; " ) " ; :TL$=Q$(S(A) ) 

230 L=LEN ( TL$ ) : I F L<73 THEN PRIN 

T#-2,TL$:GOTO260 

240 FOR G=72 TO 30 STEP-1:IF MID 



$(TL$,G,1)=" " THEN 250 ELSE NEX 
T G 

250 PRINT#-2,LEFT$(TL$,G-1) :TL$= 
RIGHT$(TL$, L-G ) :PRINT#-2,STRING$ 
(8,32) ; :GOTO230 
260 NEXTA 
270 END 

1010 DATA THE SYMBOL FOR GOLD IS 
G. ,F 

1020 DATA WATER HAS THREE ELEMEN 

TS IN ITS FORMULA. ,F 

1030 DATA KINETIC ENERGY IS ENER 

GY DUE TO AN OBJECT'S MOTION., T 

1040 DATA TWO ELEMENTS COMBINE T 

0 FORM A COMPOUND. THE SYMBOL FO 

R THE ELEMENT WHICH IS OXIDIZED 

IS ALWAYS PLACED ON THE LEFT IN 

THE COMPOUND'S FORMULA., T 

1050 DATA THE OXIDATION NUMBER F 

OR SULFATE IS -2 . ,T 

1060 DATA THERE ARE TWO OXYGEN A 

TOMS IN A HYDROXIDE ION.,F 

1070 DATA OZONE IS TRIATOMIC OXY 

GEN. ,T 

1080 DATA PH PAPER IS BLUE IN A 
BASIC SOLUTION. ,T 

1090 DATA A SOLUTION WITH A PH 0 
F 3 IS BASIC. ,F 

1100 DATA FERROUS IS THE IRON 10 
N WITH AN OXIDATION NUMBER OF +2 
.,T 

1110 DATA THE NONMETALS ARE LOCA 
TED ON THE LEFT SIDE OF THE PERI 
ODIC TABLE OF THE ELEMENTS., F 
1120 DATA SODIUM'S SYMBOL IS Na . 
,T 

10000 DATA END , E 



UNLEASH OS 

YOUR CREATIVE GENIUS 
WITH 







p] 




Ju 





Ed ± "t 




Two full graphics screens and one text screen. 
What you see is what you get, no space devoted to menus. 
Scroll in any direction, turn upside down, backward, or 
rotate 30 degrees. Stamps can be copied, even between 
sceens. They can be listed or saved in hexadecimal -form 
to use in your own programs. No more graphics worksheets! ! 

Draws boxes, circles, and straight lines between any 
two points using second cursor and easy single-key 
commands. Joysticks are helpful but not necessary. 

Pictures can be expanded or shrunk after drawing. Prints 
two color dumps on Okidata B£P, four colors on TRS-80 
CGP-1 15. Screens can be left allocated for other dumps. 

Whether you use GRPFI X-3 to help you write educational 
software or games, make cartoons and posters, or just 
doodle, it' s a great addition to your OSS toolbox. 
Send your order to: Oardvark Software 
P.O. Box 601S3 
Palo Alto, CO 
9 A 306 

Do it! Ot this price, you can't beat GROFIX-3 anywhere! 



Hi 

ONLY $20.00 



Circle Reader Service card #107 
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Connect your TRS-a^Color Computer 
to the Outside World 

Learn the simple techniques for putting your computer to 
work monitoring and controlling outside devices and instru- 
ments. Construct and use input and output ports, analog- 
to-digital and digital-to-analog converters to control signals 
using BASIC language programs. Excellent for individual or 
classroom instruction. 

The book, TRS-80 Color Computer Interfacing, With Experi- 
ments, no. 21893, fully explains the fundamentals and 
illustrates them with experiments. $14.95 

The Expansion Connector Breadboard, no. CC-100, 
connects directly to the computer and brings out the needed 
address, data, and control bus signals. $34.95 
*The Experiment Component Package, no. CC-150, 
contains all of the parts needed to do the experiments in the 
book. $89.95 

For a limited time only, get all three for $105.00, a 25% 
saving. (Or take 15% off of any individual item.) Offer expires 
November 15, 1986. 

Virginia residents, add 4% sales tax. 

Include $2.50 for shipping. 

Write for our new free catalog of books, hardware, and 
software on interfacing, electronics, scientific software, 
and personal improvement guides. Order from: 



PUTTING 
HANDS 
AND 
MINDS 
TOGETHER 




Qroup & technology , Slid. 



P.O. BOX 87 • CHECK, VIRGINIA 24072 

Circle Reader Service card #309 
Visa/Master Card accepted. 703-651-3153 
TRS-80 is a trademark of Radio Shack, a Tandy Corporation. 



November 1985 HOT CoCo 71 



6809 on Line 



by Bobby Ballard 



In September I presented an overview of 
setting up a BBS, discussing time commit- 
ment, audience, and services. But there's 
more to running a BBS; you must think 
about necessary hardware and its cost. Start- 
ing with the basics, let's look at equipment 
you might consider. 

Software Influences Hardware 

Your choice of software greatly affects the 
hardware you need. There are a number of 
options, the most inexpensive of which is to 
write your own programs. If you have the tal- 
ent for writing machine-language, you can 
write a driver program to control the serial 
port through modifications to Basic and 
stand-alone subroutines. Or you can pur- 
chase a driver, like Remoterm from Star-Kits 
Inc. or 232 RemotePlus from EDC Inc. In ei- 
ther case, you will need to write the remain- 
ing program or programs in Basic. The 
advantage to this approach is obvious: Be- 
cause you design the system, your hardware 
choices are not restricted. 

Purchased software offers different advan- 
tages. One commercial package, Colorama, 
is thoroughly supported by the manufac- 
turer, Ceratec. You get quick and courteous 
help if you have problems. Purchased soft- 
ware is well worth the price, especially if you 
have limited programming time or talent. 
However, you still need a working knowledge 
of Basic to run a commercial BBS because 
you must be able to make program modifi- 
cations and system adjustments to set up 
your board. 

Knowledge of RS-232 protocols is also im- 
portant. You need a special cable to accom- 
modate the additional RS-232 lines missing 
on the CoCo. Colorama uses the standard 
I/O, cassette, and joystick ports on the back 
of the CoCo to deal with 1,200-baud detec- 
tion, carrier-detect, and smart-modem fea- 
tures. A CoCo, drives, controller, and 
autoanswer modem are the basic require- 
ments for a Colorama system— you won't 
need an RS-232 port or Multi-Pak Interface. 
The system will handle up to three double- 
sided drives but can be run on one single- 
sided drive, as well. 

The middle ground between purchased 
and original software is public-domain soft- 
ware. The cost is low, but you must be willing 
to debug and modify the programs. Even if 
you make a donation, you do not get the 
same support you receive when you buy a 
commercial package. 

One such program, COBBS, written by 
Richard Duncan, can be downloaded from 
CompuServe or another BBS. At present, 
COBBS supports up to three single-sided 
drives and requires Tandy's Deluxe RS-232 
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BBS Hardware 

Program Pak (catalog no. 26-2226). You 
must therefore use a Multi-Pak Interface (cat- 
alog no. 26-3 124) or a Y cable, but your serial 
I/O port is free for a printer or another periph- 
eral. In addition, using a fully configured RS- 
232 port gives you greater control over your 
modem and its control lines. 

Since the CoCo lacks a standard RS-232 
port, you cannot reliably send data at speeds 
above 1,200 baud using the existing port. 
With the advent of 2,400 baud, you might 
want to consider adding an RS-232 port. Of 
course, this requires that you purchase a 
Multi-Pack Interface to simultaneously han- 
dle your drive and controller. You might buy 
Tandy equipment or purchase a bus-expan- 
sion board from PBJ Inc. 

A BBS Ties Up Equipment 

An early decision you must make is 
whether to have an additional phone line in- 
stalled. If your board will be on line 24 hours 
a day, consider dedicating a separate phone 
line for your BBS. BBS numbers get passed 
on and often the information regarding hours 
of operation is omitted. You might find peo- 
ple calling you at all hours, thinking it is a 
24-hour-a-day board. 

Equally important is balancing your per- 
sonal computing and BBS needs. You might 
not be able to get by if you have only one 
CoCo with a drive controller and two disk 
drives. When your BBS is running, your 
CoCo will be tied up just as if someone else 
were at the keyboard. Setting up a separate 
system is expensive. Adding a printer might 
prove invaluable in printing membership 
lists and tracking caller activity while you 
are away from the terminal, but it will in- 
crease costs, too. 

Then there's OS-9. Perhaps you can use it 
to time-share and multitask in order to ac- 
commodate your personal and BBS needs. 
But while it is possible to run a system on 
OS-9, only one person can access the disk 
system at a time. OS-9 is still worth consid- 
ering, though, because you might be able to 
serve two callers at once using a dual RS-232 
port from PBJ Inc. 

Another important piece of BBS equip- 
ment is a modem. If you don't own an au- 
toanswer modem, you will need one for your 
BBS. Even if you do, you must choose be- 
tween tying it up with the BBS or buying a 
second one. Of course, if you telecommuni- 
cate only occasionally, you might not need 
two modems. 

Other Considerations 

Storage capacity is the heart of any BBS 
and represents the largest overall cost. You 



need disk space for all files and storage space 
for the disks. Uploading and downloading 
also consume space. In fact, most download 
and information files are stored in ASCII, 
which uses more space than tokenized Basic. 
A program that uses 5 granules in Basic 
might use 6-8 granules in ASCII. 

Protecting files from spikes and surges 
must be figured in total costs. With a BBS it 
is best to protect the telephone lines in addi- 
tion to the system power lines. 

There are many odds and ends that also 
add up. Paper and printer ribbons are two of 
the little things that you'll need more of once 
your BBS goes on line. It's clear that there 
are many factors to consider and many 
places to spend money, but you are the con- 
trolling factor. What you want from the BBS 
and how it is run are up to you. ■ 

Address correspondence to Bobby Ballard, 
1207 Eighth Ave., 4 R, Brooklyn, NY 11215. 
You can also reach him on line through 
CompuServe (#72746,2373 or #73135,255), 
The Source (#BCT173), and MCI Mail (#172- 
3476). Bobby's BBS number is 718-499-1633. 



Manufacturers 

CompuServe 
P.O. Box 20212 
Columbus, OH 43220 
800-848-8990 

Ceratec Inc. 
P.O. Box 663 
Elgin, TX 78621 
512-285-2620 

Richard Duncan 
2504 North Gathings Drive 
W. Memphis, AR 72301 
BBS Number: 501-735-5614 

EDC Inc. 

P.O. Box 42718 

Los Angeles, CA 90042 

213-254-6809 

BBS Number: 213-258-0640 

PBJ Inc. 

P.O. Box 813 

North Bergen, NJ 07047 

201-330-1898 

Star Kits Inc. 
P.O. Box 209 
Mt. Kisco, NY 10549 
914-241-0287 

Tandy 

1400 One Tandy Center 
Fort Worth, TX 76102 
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INKEY$ Improvement 

The article, 'Those Amazing POKEs" 
(HOT CoCo, March 1985, p. 28) was very in- 
teresting, but I needed something more. My 
one-liner combines the best qualities of IN- 
KEY$ and EXEC44539: 

0X$ = " ":POKE VARPTR(X$) + 2,0:POKE 
VARPTR(X$) + 3,&H87 

After a program executes this line, X$ will 
contain the value of the last key pressed after 
any use of INKEY$ or EXEC44539. 

Because this line changes the string 
pointer for X$ to the last-key-pressed mem- 
ory location in the Basic communications 
area, you should not use X$ for another value 
or you might write over important data. If 
you are already using X$ as a variable, sub- 
stitute another single-character variable, 
making sure that both POKEs use the correct 
VARPTRs. 

Geoffery H. Frizzell 
Edmonton, Alberta 



Pseudo PRINT USING 

If you're using an MC- 10 or a CoCo without 
Extended Color Basic (or even an Apple II or 
Commodore), you can't take advantage of 
Basic's PRINT USING statement. This com- 
mand is particularly useful when you are 
working with numbers or money amounts 
because it lets you round off numbers or dis- 
play figures in columns with the decimal 
points aligned. For example, the statement, 
PRINT USING "####.##"; 7634.728, will 
print the number as 7634.73. 

While you can't change your computer's 
command vocabulary, you can use my short 
utility as a substitute for PRINT USING. 
Lines 10-240 and 360 are included for dem- 
onstration purposes; they show how the 
numbers can be printed. Lines 2 10-350 con- 
tain the pseudo PRINT USING subroutine. 
Before the main program branches to it, you 
need to assign the number of places before 
the decimal (NB), the number of places after 
the decimal (NA), and the number that you 
want converted (N). Upon returning control 
to the main program, you must include a line 
that prints N$. The number will be printed 
as if you had used PRINT USING. 

10 CLS: 1 ANN REEVES 
20 PRINT @8, "PROGRAM TO SIMULATE 
" :PRINT"PRINT USING B CHR$ ( 34 ) " ## 
###.##"CHR$(34) :PRINT n (I.E. WR 



ITE NUMBERS IN COLUMNS AND ROUND 
ED A SPECIFIC NUMBER OF PLACES 
)" 

30 INPUT" <ENTER> FOR DEMONSTRATI 
ON" ;A$ 

40 CLS : PRINT"THE NUMBERS - AS TH 
EY ORIGINALLY WERE 

50 FOR X=l TO 10 : READ Y : PRINT Y: 

NEXT X: RESTORE 

60 INPUT" <ENTER> " ;A$ 

70 

80 CLS: PRINT" IN A COLUMN - ROUND 
ED TO NEAREST INTEGER (COLUMN WI 
DTH 7) 

90 PRINT" LIKE PRINT USING"CHR$(3 

4)"#######"CHR$(34)",N" 

100 NA=0:NB=7 'SET 7 PLACES BEFO 

RE DECIMAL, 0 PLACES AFTER DECIM 

AL 

110 FOR X=l TO 10 : READ Y:N=Y:GOS 
UB220 

120 PRINT N$ : NEXT X : RESTORE 
130 INPUT" <ENTER> " ;A$ 
140 ' ' ' ■ 

150 CLS:PRINT"IN A COLUMN - ROUN 
DED TO NEAREST CENT (HUNDREDTH) 
— 6 PLACES BEFORE THE DECIMAL 

, 2 PLACES AFTER THE DECIMAL 
160 PRINT" LIKE PRINT USING"CHR$( 
34)"######.##"CHR$(34)",N 
170 NA=2:NB=6 'SET 6 PLACES BEFO 
RE DECIMAL, 2 PLACES AFTER DECIM 
AL 

180 FOR X=l TO 10 : READ Y:N=Y:GOS 
UB220 

190 PRINT N$ : NEXT X 
200 END 

210 ,f, THIS SUBROUTINE USES VARI 
ABLES N$ , N , NA, NB , NC , NL , NT 
220 IF N>-.01AND N<.01 THEN N=0 
230 IF NA>0 THEN NT=NA+NB+1 ELSE 
NT=NB 

240 IF N>999999999 OR N<-9999999 

99 THEN PRINT "OUT OF RANGE" ;:N$ 

= STR$(N) :RETURN 1 1 JUST IN CASE 

THE NUMBER IS TOO BIG 

250 N=(INT(10~NA*N+.5) )/10~NA 

260 N$=STR$(N) 

270 FOR NL=1 TO LEN ( N$ ) 

280 IF MID$(N$,NL,1)=" . " THEN GO 

TO 340 

290 NEXT NL 

300 IF NA>0THEN N$=N$+" . " : FOR NC 
=1 TO NA : N$=N$+CHR$ ( 48 ) :NEXT NC 
310 IF LEN(N$)>NT+1 THEN NT=LEN( 
N$) 'JUST IN CASE THE NUMBER WAS 
TOO LONG 

320 FOR NOl TO NT : N$=CHR$ ( 3 2 ) +N 
$:NEXT NC 

330 N$=RIGHT$ ( N$ , NT ) :RETURN 

340 IF NA>0 THEN FOR NOl TO NA : 

N$=N$+CHR$ ( 48 ) :NEXT NC 

350 N$=LEFT$ ( N$ , NL+NA ) :GOTO310 

360 DATA 1298.799,234.3218,54999 

9,34.2,6547.4321,8.0893,6 54.987, 

.1765,54.654,345421:553 

Anna M. Reeves 
Espanola, WA 




For All Your Projects 
We Have The Full Spectrum 
Of Software & Hardware 
Always At Good Prices! 

Hayes 300 Smart Modem— $175.00 
Amdek 300 A Monitor — $149.00 
DR 0 & 1 System — $319.95 

6809 CPU Chip - $ 17.95 

RSDOS 1.1 Disk - $ 22.95 

Extended Basic 1.1 — $ 22.95 

Gold Rom "Y" Cable — $ 22.95 

We Stock Amdek Amdisks! 

VIP Integrated Library @ - 10% 

DynaCalc (RSDOS) @ - 10% 

Data Pack II (The Best Term. ) @ - 10% 

Business Software @ - 10% 

E.D.C. carries the most 
complete line of software 
and hardware in the market. 

Green Mountain Micro!! 

Computerware (All) 

Custom Software (No Disc.) 

Key Color Software (Key 264K) 

Michtron 

Tom Mix (All) 

Moreton Bay (More) 

Prickly Pear (Colorkit!) 

Platinum Software (!) 

Softlaw (VIP) 

Spectral Associates 

Speech Systems (All) 

Sugar Software & (Super) 

CoCoPro (V2) 

Computer Systems Center 

Cer-Comp 

Metric HJL Elephant 
Hayes Teac Star 
Interfaces Monitors Controllers 
Speech Music 

ALWAYS MORE AND BET TER 
*232 Remote Plus* See 

w> i as „ a Rainbow review 

9^4.95 + S A H September issue. 




COLOR & MICRO COMPUTERS 

Software • Hardware • Support 
Educational • Small Business • Games 
VOICE (213) 254-6809 10 A.M.-10 P.M. 
BBS (213) 258-0640 24 HRS. 
300 and 1200 Baud 

Extended Hours+Call before coming. 

6130 YORK BOULEVARD 

POST OFFICE BOX 42718 
LOS ANGELES, CA. 90042 
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Assembly 101 

by Victor and James Perotti 



The Nondestructive Cursor 



To follow this column, you will need an editor/ 
assembler. The authors use Micro Work's Ma- 
cro-80C disk assembler, and changes are given 
for Radio Shack's EDTASM + . Other assem- 
blers will also work, but the programs may re- 
quire some additional modification. The 
documentation that comes with your software 
should provide the commands you need. 



Last month' s program, Destructive Cur- 
sor, let you use the arrow keys to move 
the cursor around the screen, wiping out 
whatever letters were printed under the new 
cursor location. Actually, the cursor is printed 
on the screen. POLCAT writes a blank ($60) at 
the cursor address; hence, when the cursor 
moves again, a blank remains where the cur- 
sor had been. To manipulate text, you also 
need the option of a nondestructive cursor- 
one that you can move without destroying ex- 
isting characters. 

The cursor is inherently destructive; you 
cannot prevent the computer from writing 
the cursor ($60) at the address in $88 when 
POLCAT is used in a program. You don't 
want to completely abandon POLCAT, but 
you do want a way to save the character that 
the cursor would otherwise destroy. To do 
this, you must restore the character to its 
original position after the cursor moves, so 
you must also store the address for the char- 
acter saved. 

However, you don't always want to restore 
the original character. If POLCAT is called to 
write a new character at the cursor's loca- 
tion, the new character should take the place 
of the old. On the other hand, if you're just 
moving the cursor through a screen address, 
you'll want the original character restored. 

The whole thing sounds complicated. The 
hard part about writing more complex pro- 
grams is figuring out what the program must 
do and how it should accomplish that task. 
Break the problem down into single parts; 
then write code to perform each part. We'll 
leave the lecture on flowcharting and pseudo- 



Program Listing. Nondestructive Cursor 



codes to more advanced Assembly-language 
classes, but you should get the logic down 
before you fire up the editor and begin writ- 
ing code. 

The following steps will give you a nondes- 
tructive cursor; 

• Go to POLCAT. Is the next key pressed an 
arrow key or a regular ASCII character? 

• If it is an ASCII character, print it, update 
register X, save the character at the new X, 
and update the cursor. 

• If the key pressed is an arrow key, deter- 
mine where the cursor will go (use the up- 
dated address in X); check to see if the 
address is still on the screen (i.e., greater 
than $400 and less than $5FF); save the 
character at the location to which the cursor 
is moving; restore the saved character that 
was at the cursor's original location; and 
move the cursor to the new location. 

• Return to POLCAT. 

There are lots of ways to set up a tempo- 
rary storage location for characters you want 
to save. Both Macro-80C and EDTASM + 
have a pseudo-operating instruction for cre- 
ating storage location in RAM: The acronym 
is RMB. Reserve Memory Byte. The number 
of bytes of memory to be reserved for this use 
follows RMB. For example, CHAR RMB 1 sets 
up a 1-byte storage location for the character. 
The assembler automatically assigns the 
memory location to CHAR. 

The Program Listing, Nondestructive Cur- 
sor, displays the longer GO routine, which 
now has the following four routines: 

• Jump to the POLCAT subroutine to scan 
the keyboard, and jump to DONE if the break 
key was pressed. 

• Branch to the subroutines if one of the ar- 
row keys was pressed. 

• Display the character and update the cursor. 

• Save the character at the next position. 

If you're using EDTASM + , change line 

System Requirements 

16K 
Color Basic 
Editor/Assembler 



0007 to ORG $1200, delete line 0008, and 
move the START instruction down to line 
0009. Change line 0058 to DONE SWI. 

The SAVE routine is new. After X is incre- 
mented, the new address is stored in the cur- 
sor pointer and is also used to save the char- 
acter at X. Although B holds the ASCII value, 
the program also stores B in the CHAR loca- 
tion in RAM. The program then loops back to 
GO to scan the keyboard again. If POLCAT 
picks up another ASCII character, the char- 
acter is written to X and the content of CHAR 
is ignored. 

Restoring the Old Character 

If POLCAT's keyboard scan finds that an 
arrow key was pressed, it is best to use the 
old X address (before it is altered in the ar- 
row-key subroutine) to restore the character 
that the cursor displaced. The RSTORE sub- 
routine moves the contents of CHAR into A; 
A is then stored or printed at X. Note that 
each of the arrow-key subroutines begins 
with a JSR (Jump to the Subroutine) 
RSTORE. Note also that JSR subroutines 
must end with an RTS (Return to Subrou- 
tine), which concludes the subroutine and re- 
turns control to the calling routine. Now the 
X address and CURSOR can be updated to 
reflect the arrow key that the original sub- 
routine called. 

But you're not done yet. Before you can 
include a branch back to GO, which will print 
the cursor at the new position, the character 
in the new location needs to be stored in 
CHAR. You can use the arrow keys to run the 
cursor off the screen, so the program must 
check the cursor location to see if X is be- 
tween $400 and $5FF. If the address is OFF- 
TOP or OFFBOT, the program will place the 
cursor at the first or last position on the 
screen. However, as before, you must store 
the character occupying that first or last spot 
for later use. But that's easy: Use the SAVE 
subroutine again, and then BRA GOM 

Write to James and Victor Perotti at 1 63-Pine 
Grove Heights, Athens, OH 45701. 



** DEFINE SYMBOLS FOR ROM CALLS 



0001 0E00 

0002 0400 



CHAR RMB 1 

VI DRAM EQU $0400 



BYTE TO HOLD OLD CHARACTER 
TOP OF SCREEN ADDR 



0003 A1B1 

0004 A30A 

0005 0088 

0006 A928 

0007 A027 

0008 0E01 

0009 0E01 BDA928 

0010 0E04 8E0400 

0011 0E07 9F88 



POLCAT EQU $A1B1 
PRINT EQU $A30A 
CURSOR EQU $088 
CLS EQU $A928 

BASIC EQU $A027 

START NAM NONCUR 
JSR CLS 

TOP LDX # VI DRAM 

STX CURSOR 



GET CHAR FROM KEYBOARD 
PRINT CHARACTER TO SCREEN 
ADDRESS FOR CURSOR 
SUBROUTINE TO CLEAR SCREEN 
ROM ADDR FOR BASIC 



CLEAR SCREEN 

PUT CURSOR AT TOP OF SCREEN 
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0012 


0E09 


BDA1B1 


GO JSR POLCAT 


CHECK KEYBOARD 


0013 


0E0C 


8103 


CMPA #03 


IS IT THE BREAK KEY? 


0014 


OEOE 


2764 


BEQ DONE 


RETURN TO BASIC 








******IS THE KEY AN 


ARROW KEY? 


0015 


0E10 


8109 


CMPA #09 


IS IT RIGHT ARROW? 


0016 


0E12 


2727 


BEQ RIGHT 




0017 


0E14 


8108 


CMPA #08 


IS IT LEFT ARROW? 


0018 


0E16 


271C 


BEQ LEFT 




0019 


0E18 


810A 


CMPA #10 


IS IT DOWN ARROW? 


0020 


0E1A 


272E 


BEQ DOWN 




0021 


0E1C 


815E 


CMPA #94 


IS IT UP ARROW? 


0022 


0E1E 


2722 


BEQ UP 










*****MUST BE REGULAR 


CHARACTER 








**PRINT IT, SAVE OLD 


CHARACTER 


0023 


0E20 


BDA30A 


CHROUT JSR PRINT 


DISP CHAR ON SCREEN 


0024 


0E23 


3001 


LEAX 1,X 


INCREMENT CURSOR 


0025 


0E25 


9F88 


STX CURSOR 










**NOW SAVE CHR IN NEW LOCATION 


0026 


0E27 


E684 


SAVE LDB ,X 


GET OLD CHAR 


0027 


0E29 


F70E00 


STB CHAR 


SAVE OLD CHARACTER 


0028 


0E2C 


20DB 


BRA GO 


GET ANOTHER CHARACTEF 



0029 0E2E B60E00 

0030 0E31 A784 

0031 0E33 39 



0032 0E34 BD0E2E 

0033 0E37 301F 

0034 0E39 2017 

0035 0E3B BD0E2E 

0036 0E3E 3001 

0037 0E40 2010 



****************************** 

♦SUBROUTINE FOR: 

**** RESTORING OLD CHARACTER 

****************************** 



RSTORE LDA CHAR 
STA ,X 
RTS 



GET OLD CHR 

DISP IT AT OLD SPOT 

RETURN TO SUBROUTINE CALL 



*****SUBROUTINES FOR EACH ARROW 



JSR RSTORE 
LEAX -1,X 
BRA CHECK 

JSR RSTORE 
LEAX 1,X 
BRA CHECK 



PRINT OLD CHAR 
BACKUP CURSOR 
STILL ON SCREEN? 



MOVE RIGHT ONE SPACE 



0038 


0E42 


BD0E2E 


0039 


0E45 


3088E0 


0040 


0E48 


2008 


0041 


0E4A 


BD0E2E 


0042 


0E4D 


308820 


0043 


0E50 


2000 



NO ERRORS FOUND 



JSR RSTORE 
LEAX -32, X 
BRA CHECK 

JSR RSTORE 
LEAX 32, X 
BRA CHECK 



MOVE UP A LINE 



MOVE DOWN A LINE 



*** SUBROUTINES TO KEEP 
*** CURSOR ON THE SCREEN 
*** VIDRAM = $0400 TO $0600 



0044 


0E52 


E684 


CHECK 


LDB ,X 


GET OLD CHARACTER 


0045 


0E54 


F70E00 




STB CHAR 


SAVE IT FOR NOW 


0046 


0E57 


8C0400 




CMPX # VI DRAM 


LOWER THAN TOP? 


0047 


0E5A 


2509 




BLO OFFTOP 


IF OFF TOP 


0048 


0E5C 


8C05FF 




CMPX #$5FF 


HIGHER THAN BOTTOM? 


0049 


0E5F 


240B 




BHS OFFBOT 


IF OFF BOTTOM 


0050 


0E61 


9F88 




STX CURSOR 


IF ON SCREEN 


0051 


0E63 


20A4 




BRA GO 




0052 


0E65 


8E0400 


OFFTOP 


LDX #$400 


PUT CURSOR 


0053 


0E68 


9F88 




STX CURSOR 


AT TOP LEFT CORNER 


0054 


0E6A 


20BB 




BRA SAVE 


STORE CHR AT $400 


0055 


0E6C 


8E05FF 


OFFBOT 


LDX #$5FF 


PUT CURSOR 


0056 


0E6F 


9F88 




STX CURSOR 


AT BOTTOM RIGHT 


0057 


0E71 


16FFB3 




LBRA SAVE 


STORE CHR AT $5FF 








******** BREAK KEY 


PRESSED 








****** 


** CONCLUDE 


PROGRAM 








******** RETURN TO 


BASIC 


0058 


0E74 


7EA027 


DONE 


JMP BASIC 


ALL DONE, GOTO BASIC 


0059 


0E77 






END START 





BASIC 
CLS 



A027 CHAR 0E00 
A928 CURSOR 0088 
0E09 LEFT 0E34 
A30A 
0E01 



CHECK 0E52 CHROUT 0E20 
DONE 0E74 DOWN 0E4A 
OFFBOT 0E6C OFFTOP 0E65 



POLCAT A1B1 PRINT 
SAVE 0E27 START 
VIDRAM 0400 



RIGHT 
TOP 



0E3B 
0E04 



RSTORE 0E2E 
UP 0E42 



END 
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MACRO 80-C 



ASSEMBLY 101 STUDENTS 
MAKE THE HONOR ROLL 
WITH MACRO-80C 

Learning 6809 Assembly Language is challenging and fun, but 
can be frustrating without expert guidance and the right tools. 

James and Victor Perotti provide expert guidance. 
The Micro Works provides the right tools. 

Macro-80C will help you get the most out of Assembly 101 and 
your CoCo. It consists of a disk-based screen oriented editor, 
macro assembler and debug monitor program— all the essentials 
for writing and testing your assembly language programs. 

NEW! The powerful Structured Macros package is now included 
with Macro-80C. It allows IF/ELSE, REPEAT/UNTIL, WHILE/ 
ENDWHILE and other control structures to be used directly in an 
assembly language program. A $40.00 value . . . free! 

For cassette-based systems, use SDS80C. It has many of the 
features of Macro-80C but comes in Rompack, leaving all of your 
RAM free for your programs. 




EDTASM + 



"We will be using Micro Work's Macro-800 disk assembler; we 
prefer it to all the Color Computer assemblers we have used." 

Hot CoCo-May 1985 
Assembly 101 ; by James and Victor Perotti 



MACRO-80C DISK $99.95 



SDS80C ROMPACK $89.95 



The Teacher's Pet 



P.O. BOX 1110 Del Mar, CA 92014 



(619) 942-2400 



Tell them "I saw it in HOT CoCo.' 
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The Learning Page 



by Nancy Kipperman 



CoCo Simulations 



To prepare for this column, I explored 
the waters of Odell Lake in Oregon; 
traversed the woods of the northern United 
States; sold apples, plants, lemonade, and bi- 
cycles; wrestled with the U.S. Congress; and 
gained a new understanding of President An- 
drew Jackson. All this— and I never left the 
computer! 

I gained these experiences using simulations 
for the CoCo: Market Place and Outdoor Biology 
(grades 2-9) prepared by Minnesota Educa- 
tional Computing Consortium for Tandy Cor- 
poration and Congress and Presidential 
Decisions of Andrew Jackson (grades 9-12) 
from B5 Software (also available through Radio 
Shack's Express order Software). 

These programs require a 32K Color Com- 
puter with Disk Extended Color Basic and a 
disk drive. (Congress is also available on cas- 
sette.) You can use each simulation on an in- 
dividual basis, with a team of students, or as 
a class project. 

Market Place 

Market Place is designed for use within a 
social-studies curriculum and teaches eco- 
nomic concepts. It contains four simulations 
that increase in difficulty. An excellent 
course manual accompanies this software as 
do several reproducible student handouts 
and question sheets. Learning objectives are 
clearly stated for the teacher's benefit, and a 
section of text suggests possible uses in the 
classroom, including preparation and follow- 
up activities. 

Sell Apples is the simplest simulation. The 
student becomes the apple seller and has to 
determine the best price at which to sell ap- 
ples. Each time the program is run, a new 
best price is randomly set. 

Sell Plants adds the concept of expenses 
and advertising to the selling situation. The 
student sells 1,000 tomato plants that the 
class has grown at a fixed expense of $30. 
Opportunities to purchase advertising at 25 
cents a sign help the student to increase ex- 
posure and sales. Results demonstrate the 
relationship between selling price, advertis- 
ing, and profit. 

Sell Lemonade lets the student set up a lem- 
onade-stand business. The student decides 
the quantity of lemonade to be produced, the 
price, and the number of advertising signs to 
purchase. Random events, such as changes 
in weather, street repair, and a parent's deci- 
sion to stop providing free sugar, affect sales 
and profit. 

Sell Bicycles is the most complicated of the 
Market Place simulations. Students manage 
two bicycle companies and learn how sales 
are affected by their business decisions. 
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Competition exists between the compa- 
nies; each begins with $5,000 in cash and an 
inventory of 100 bicycles. The simulation 
continues until one company has earned 
$32,000 in assets or gone bankrupt. Stu- 
dents make decisions each quarter about 
production level, advertising budget, and 
selling price. Outcomes are affected by the 
other company's decisions and, eventually, 
by random events, such as fire, transporta- 
tion and production .strikes, wage-price 
freezes, and burglary. 

Outdoor Biology 

This simulation contains two programs to 
be used as part of a science curriculum 
(grades 2-9). Odell Lake simulates the feed- 
ing conditions for five kinds offish in a North 
American lake; Odell Woods simulates the 
food chain that exists in North America's for- 
ests. Reproducible materials and course ob- 
jectives are included in the package. 

In Odell Lake, the student assumes the role 
of a specific kind of fish. The fish meets other 
kinds of fish and plant life in its natural envi- 
ronment. The survival of the fish depends on 
the student's decisions in each situation. 
Through experimentation (and often death), 
the student gains insight into food-chain rela- 
tionships and ecological systems. 

Odell Woods provides similar experiences, 
but the student assumes the role of an ani- 
mal in the woods and makes survival deci- 
sions as that animal. In order to survive, the 
animal must eat enough to maintain its en- 
ergy level and successfully live through a 
maximum of nine random encounters with 
unpredictable outcomes. Student teams are 
suggested as the best use of this simulation 
because decisions can be discussed and 
agreed upon. 

Congress 

Congress is a social-studies simulation in 
which you become the president of the 
United States. You build your program of five 
bills and then attempt to pass them through 
Congress within a two-year period. Congress 
might or might not have a majority of mem- 
bers of your chosen party affiliation. All bills 
begin in the House of Representatives; you 
must decide where to place your 20 lobbyists 
to effect the greatest good for your platform. 

Flowcharts show the steps of a bill going 
through Congress. If the bill passes, you de- 
cide whether to veto the bill, sign it into law, 
or ignore it and let it become law. The num- 
ber of amendments added to each bill during 
passage affects your point score; the simula- 
tion is different each time it is played. Again, 



student teams or pairs would work well with 
this program. 

Andrew Jackson 

Also a social-studies simulation, this pro- 
gram allows you to become President Andrew 
Jackson. Your challenge is to make the same 
decisions he did in each of several situations, 
such as the Indian removal from the South or 
the Eaton Scandal. To achieve this, you read a 
newspaper article displayed on the screen to 
obtain background information. In addition, 
you choose to reflect upon the past, view the 
overall effect of the problem, or ask advice 
from others— friends or cabinet members. 
These options can be used more than once 
before a decision must be made. 

After you make your decision, it is com- 
pared to Jackson's. Then the final outcome 
and historical effects of Jackson's decision 
are explained. Finally, at the end of the sim- 
ulation, your progress is rated with points 
and your effectiveness as Andrew Jackson 
stated. 

In Conclusion 

All these simulations have value in the 
classroom. Where they fit into your curricu- 
lum depends on you and the equipment and 
time available to you. Simulations such as 
these make it easy to set up a class project or 
competition. There is much to be learned by 
the practical application of knowledge or 
concepts; using simulations will no doubt 
add an element of interest and suspense to 
the learning process. ■ 

Nancy Kipperman is HOT CoCo's Education 
Editor and an English teacher at Conant High 
School in Jaffrey, NH. Write her do HOT CoCo, 
80 Pine St., Peterborough, NH 03458. 

Manufacturers and Products 

B5 Software 

1024 Bainbridge Place 

Columbus, OH 43228 

614-276-2752 

• Congress: $29.95 (cassette) or $31.95 
(disk) 

• Presidential Decisions of Andrew Jack- 
son: $31.95 

Minnesota Educational Computing 
Consortium 

3490 Lexington Avenue North 
St. Paul, MN 55112 

• Market Place: $34.95 

• Outdoor Biology: $34.95 



For Your TRS-80 Color Computer 

Apple • Atari • Commodore • TRS80I, III, 4 & Color • IBM PC Jr. 

New Educational Programs for 
Grades K-12 and Adult Self-Studies { 

32 Programs Now Available on Disk 
for TRS Color Computers 






You way be able to 
reduce your taxes by 




- incowe 
auerag ing 

- incotte 
spl itt ing 

- tax sheltei 







Uh ich? 
O sister 

Q smaller 



One-syllable adjectives that 
end in y usually just add |tj. 



IJhich has one syllable? 
O »cg 
I 9 sly 
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Product News 



by J. Scot Finnie 



Polygon's Flight Check, D.P. Johnson's CCRD, Four 
Star's Pen Pal, OS9 Calligrapher, New Mark Data 
Games, the Latest from Dorsett, and More. 



Information related in the Prod- 
uct News section is supplied by 
manufacturers. HOT CoCo has 
not tested or reviewed the prod- 
ucts discussed here and cannot 
guarantee manufacturers' claims. 



Specialized or vertical appli- 
cations are a trend this 
month. More and more software 
and hardware companies are re- 
alizing that computer innova- 
tions that perform unusual or 
unique business, personal-pro- 
ductivity, or job-specific func- 
tions can quickly find their niche 
in the marketplace. Tailoring 
software to the needs of a small 
group of people (who will benefit 
substantially by an application 
designed to meet their needs 
only) makes sense because it of- 
fers the potential for the program 
to be efficient and easy to use. 
Such products can also provide 
"expert" information or a cus- 
tomized work environment to 
their audiences. 

Specialized or Unusual 

Polygon Industries is one of 
several companies that offers job- 
specific programs. Flight Check 
is an airplane-operation program 
that computes the best altitude 
and power settings for a given 
flight. It also computes weight, 
balance, and reserve fuel at des- 
tination. Barrett Leibe of Polygon 
noted that the program was 
"field" tested for 12 years in his 
airplane dealership business. 
Flight Check sells for $49. Poly- 
gon also offers F & I Master, a 
program designed to allow auto- 
mobile dealers to work monthly 
payment terms on screen and 
print out 13 kinds of sales forms. 
It lets salesmen quickly discover 
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the best financing for each cus- 
tomer. F & I Master sells for 
$2,000 but comes with extensive 
on-sight support, including cus- 
tomization for each dealer. These 
programs require 64K and at 
least one disk drive. 

West Bay Company has re- 
leased a new program called 
Medic, which it calls "one of the 
new generation of 'expert' pro- 
grams." Medic appears to offer 
lay medical advice on common 
physical ailments— not what you 
might term expertise. It requires 
16K, Extended Color Basic, and 
a disk drive. It sells for $20. 

If you think specialized soft- 
ware is the latest rage, you hav- 
en't seen some of the unusual 
stuff being dreamed up out in 
CoCo land. Before Sports, the 
only exercises your computer of- 
fered were finger calisthenics or 
getting up to stretch your legs. 
Computhon could be on the 
verge of a new breakthrough in 
computer exercise. The Compu- 
thon Sports is a giant coil-spring- 
loaded joystick with a foot-oper- 
ated fire button (see photo). You 
stand on it and move its handle- 
bar with your body while watch- 




Sports from Computhon is a giant 
exercise joystick. The game pic- 
tured in the background is Skiing 
from Tandy Corp. 
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ing and reacting to a game on 
your TV or monitor. The com- 
pany markets the device as an 
exercise alternative and has 
tested the product for medical 
safety. The Sports plugs into one 
of the CoCo's joystick ports with- 
out modification. It sells for $150. 

Advances 

D.P. Johnson has a block 
buster of a new-product an- 
nouncement this month. The 
company has released a 512K 
RAM-disk cartridge called CCRD 
(for Color Computer RAM disk). 
The CCRD plugs into a multiple 
ROM-pack interface and runs 
with OS-9. (The company also 
provides OS-9 drivers for cus- 
tomers who do not own OS-9.) 
The CCRD cartridge is a half-me- 
gabyte RAM disk that can be 
used by any program just like a 
disk drive. RAM disks can access 
software several times faster 
than mechanical disk drives be- 
cause data is stored in RAM. 
RAM disks are especially useful 
for speeding up the compiling of 
C or Pascal programs. For larger 
memory, two CCRDs can be con- 
figured in one system to provide 
a megabyte of storage. The 
CCRD requires a multiple ROM- 
pack interface and OS-9 or OS-9 
drivers you purchase separately 
from D.P. Johnson for $20. The 
cartridge sells for $298. 

Four Star Software, makers of 
CoCo Paint and other fine pro- 
grams, is being secretive about 
its new integrated business pack- 
age dubbed PenPal. The product 
grew out of an idea for a flexible, 
creative database system, which 
Product News reported on in 
May. PenPal is sure to include a 
word processor, spreadsheet, 
and database. The company in- 
tends to release the new product 
before the end of the year. We'll 



just have to wait and see. 

Soistmann Enterprises can't 
resist saying "help has arrived." 
The company offers a new DOS 
called S.O.S. (for small operating 
system). S.O.S. requires a 64K 
Color Computer and is designed 
for machine-language programs. 
It does not support Basic. The 
DOS was designed to provide a 
larger work space and several im- 
provements for program devel- 
opers. Its format, backup, and 
copy utilities are designed to 
work with 35-, 40-, or 80-track 
single- or double-sided disk 
drives. The new DOS offers a long 
list of intriguing options and fea- 
tures. This might be just what 
you are looking for. Contact the 
company for more information. 
S.O.S. sells for $49.95. 

News Bits 

PBJ of Word-Pak fame has a 
new address and phone number: 
P.O. Box 813, 5725 Kennedy 
Blvd., N. Bergen, NJ 07047, 201- 
861-0126. The company is work- 
ing on a new version of the OS-9 
driver for Word-Pak that will en- 
hance the product's use with 
other products, such as Com- 
puter Systems Center's Dyna- 
Calc for OS-9 being marketed by 
Tandy. PBJ is also quickly be- 
coming the de facto standard in 
multifunction add-on boards for 
the Tandy 1000. New 1000 
boards in the works from PBJ in- 
clude a 2-megabyte board, a 
high-resolution board, and the 
"Super Charger," which con- 
tains the 80126 chip (the same 
one used in the Tandy 2000). 

The CoCo Calligrapher from 
Sugar Software has been re- 
leased in a new version for OSS 
called OS9 Calligrapher. The 
program is a special-purpose texl 
processor that reads an input file 
containing both text and format 



ting directions. Text is output to 
a dot-matrix printer or redirected 
to a file in one of many available 
print styles. OS9 Calligrapher 
supports Epson, Gemini, Tandy, 
Okidata, Leading Edge Banana, 
and C. Itoh Prowriter dot-matrix 
printers and their compatibles. It 
sells for $39.95 plus $1.50 for 
shipping. Sugar Software headed 
south a few months back. They 
now have a new phone number to 
go along with their new Holly- 
wood, FL address: 305-98 1 - 1 24 1 . 

Games and Education 

Shock Trooper and The Vor- 
tex Factor are two new games 
from Mark Data Products. Shock 
Trooper is an arcade game with a 
theme resembling the movie V, 



in which scheming reptilian crea- 
tures descend to earth and plot to 
take over. The Vortex Factor is 
the sixth in Mark Data's series of 
graphics adventures and is about 
time travel. Both programs re- 
quire 32K and come on cassette 
for $24.95 or disk for $27.95 plus 
$2 for shipping. 

Dorsett Educational Systems is 
working on disk versions of some 
of its popular educational series. 
Its latest conversion is Disk Al- 
gebra. The company is also re- 
leasing two new series: 
Principles of Electricity and 
Lower Math. The latter is de- 
signed for kindergarten through 
fourth-grade learners. Dorsett's 
educational series contain 16 les- 
sons, require 16K, and sell for 
$59.95. ■ 





List of Vendors 



Computhon 
23 Central Ave. 
Amityviile, NY 11701 
516-752-1655 
Reader Service ^ 550 

Dorsett Educational Systems 
P.O. Box 1226 
Norman, OK 73070 
800-654-3871 
405-288-2301 in OK 
Reader Service ^ 551 

Four Star Software 
P.O. Box 730 
Streetsville, Ont. 
L5M 2C2, Canada 
416-858-7827 
Reader Service 552 

D.P. Johnson 

7655 S.W. Cedarcrest St. 

Portland, OR 77223 

503-244-8152 

Reader Service ^ 553 

Mark Data Products 
24001 Alicia Parkway 
No. 207 

Mission Viejo, CA 92691 
714-768-1551 
Reader Service ^ 554 



PBJ Inc. 

5725 Kennedy Blvd. 
N. Bergen, NJ 07047 
201-861-0126 
Reader Service 555 

Polygon 
P.O. Box 24615 
New Orleans, LA 70184 
504-282-5372 
Reader Service ts 556 

Soistmann Enterprises In 
P.O. Box 257 
Budd Lake, NJ 07828 
201-347-0763 
609-768-4183 
Reader Service v 557 

Sugar Software 
1710 North 50th Ave. 
Hollywood, FL 33021 
305-981-1241 
Reader Service %>* 558 

West Bay Co. 
Route l,Box 666 
White Stone, VA 22578-9765 
804-435-1012 
Reader Service is 559 



Fighter Pilot 

An original arcade game! Wave after wave of 
attacking aircraft attempt to shoot you down 
as you maneuver your fighter into the wild blue 
yonder, blasting enemy fighters, bombers and 
paratroopers out of the sky. Joystick or 
keyboard operation. "Pause game" feature. 
Disk version saves high scores. 32K, 100% 
Machine Language. 

Tape $24.95 Disk $29.95 



Factory Closeout! 

Amdek Dual 3 Disk Drive 




While 
Supply 
Lasts! 



H99 



While 
Supply 
Lasts! 



Includes 2 Diskettes & Cable 

Monitors, Etc. 

Amdek Color 300 $ 239 

Composite, 300x260 Res 
Amdek Color 500 $339 

Composite/ RGB 

Video Driver $ 27.95 

Mark Data • Works on all models 
with monitor purchase - $25 95 
Reverse Video Switch s 11.95 

Works on all models with plug-in 
VDG chip. 



Saguaro 
Software/ 
Eagle $24.95* 

lunar Lander 3?k. Joysticks r^eguired 

Marooned! $29.95 

Adventure 32K, Disk Only 

Blackjack Dealer $24.95* 

With f-eeler Dea'er 32K 

Sketchpad $19.95 

Graphics Drawing Program 3?K Disk Only 

Alpha -40+ $19.95 

formats 40- tracks More' 3?k Disk Only 

Testmaker $29.95 

Creates T/F. M/C lests Disk Only 

Maycodb $24.95* 

6309 Disassembler 32k 

* Add $5 00 For Disk 



$1.00 Shipping! 

We'll Ship Your Order 
To Anywhere In The USA 
For $1.00! 

Software Only Hardware Shipped At 
Cost Outside USA - $2 00 Program 

( $6 00 Max ) 



Other Favorites! 

P51 Mustang 32K $23.75 

Worlds of Flight 32K $23.75 

Sailor Man 64K $23.75 

Trekboer 32K $19.75 

To Preserve Quandic $29.75 

32K Disk Only 
LIZPAC Stat Analysis Disk Only$ 145.00 
Super Screen Machine $33.75 

Add S3 00 for Disk 



Authors! Ask About 
Our Royalty Program 



Special! 
Family 



A genealogical database Maintains 
data on 255 people in first 8 genera 
tions of family tree Prints 3 charts Easy 
to use' 32K Ext 

Tape $15.75 Disk $18.75 

While Supply Lasts' 



Saauaro WeVe Movea! 

^nftwart* (303 > 

vJU/I WCir C7 C.O.D. Orders Add $3.00 

a P.O. Box 1664 • Telluride, CO 81435 
Colorado Residents Add 7% Tax BUl 





8^3$? P.O. Box 1864 • Telluride CO 81435 








Colorado Residents Add 7% Tax 
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Circle Reader Service card #138 



Educational Programs 




BASKETBALL 
STATISTICS 

by Jeff Stevens 

Coaches, let CoCo do the paperwork! 
Keeps each individual game, plus 
league, non-league and all game to- 
tals for a maximum of 1 6 players in up 
to 29 games. Stats can be kept in as 
many as 17 different categories — 
assists, steals, field goals, and free 
throw stats (made-attempted- 
percentages), offensive and defen- 
sive rebounds, turnovers, personal 
fouls, charges, playing time, quarters 
played and points. Totals for the op- 
position team and for your individual 
players are printable. Your season 
record and scores-to-date are avail- 
able at any time. Basketball Statis- 
tics prints a year-end summary of 
each individual player on a game-by- 
game basis. Team stats for your team 
and the opponents' totals for the year 
are included. Menu driven — Easy to 
run — Excellent for most any basket- 
ball team. 

Tandy Color Computer 
requires Extended Basic. 
32K Disk - $29.95 

Tandy Model III IV 4P 
32K Disk - $29.95 

LONG DIVISION 

by John Ashurst 

Provides practice in long division of 
whole numbers with tutorial help. A 
blinking cursor helps students with the 
correct placement of each digit. A 
special workspace is provided for mul- 
tiplication. Whenever an error is 
made, students may ask for assis- 
tance. The reason for the error is 
given. Students may correct the error 
and continue on with the problem. 
Long Division is multi-leveled and in- 
cludes scoring. 

Grades 4-6 
$19.95 Cassette 
$21.95 Disk 
Tandy Color Computer 
requires Extended Basic 
Also available for Commodore 64 

Write for a free brochure 
or ask for a dealer demonstration. 



B-5 Software Co. 

1024 Bain bridge Place 
Columbus, Ohio 43228 
Phone (614) 276-2752 
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The Corner Office 



by JeffDeTray, Publisher 



The Piracy Issue 



'W: 



hat is software piracy?" That's what an anonymous 9-year-old HOT CoCo 
reader asked me in a recent letter. "Am I doing something that's wrong? 
Please write a column about piracy." My correspondent went on to describe how he 
copies and swaps programs with friends and with members of his computer club. He 
had been reading articles about software piracy in computer magazines. He knew 
piracy was considered a bad thing, but he wasn't quite sure what piracy was. Clearly, 
it had just occurred to our young friend that his copying and swapping activities might 
actually be wrong. He was suffering his first pangs of guilt about an activity which 
seemed perfectly okay to him, but which he now learned was illegal. 

The letter bothered me. There's something sad about a system that makes 9-year- 
olds feel like criminals. And yet, there's no denying that the uncontrolled copying and 
swapping of software hurts everyone— manufacturers and users alike. It's an issue 
unlike any society has ever faced, because we have never before possessed a technol- 
ogy that allows such easy duplication of a valuable information product. If it were as 
easy and inexpensive to duplicate a book as it is to duplicate a piece of software, how 
many books do you think would be sold? With books, it's far more economical to buy 
your own copy. 

It's unfair, really. My letter writer wasn't trying to rip off anyone, merely help out 
his friends and save himself a few dollars. I wonder, though, why no adult ever ex- 
plained to him what program swapping really means. It may not be true in every 
market for every computer, but when it comes to the Color Computer, unauthorized 
copying really hurts. Even though it may not be as out-of-control as some people think, 
the problem is large enough to discourage some software makers from producing new 
CoCo products. The end result is fewer programs plus a trend toward copy-protection, 
a real pain for users. 

EOS Notes 

Thanks for your numerous letters about using Tandy's Express Order Software sys- 
tem. If there is any consensus to be drawn, it is that EOS is a good idea with great 
potential and a few serious bugs. 

Most everyone trying the system says that, while it works and the software they've 
ordered eventually arrives, they are not sure they'll use the system again. First, too 
many Tandy store personnel still don't seem to know or care a great deal about EOS. 
But more important is the lack of demonstration copies or even a descriptive catalog 
of the programs available. If you're going to order sight unseen anyway, there's slight 
advantage in ordering through EOS. The delivery time doesn't time appear to be sig- 
nificantly faster than a good mail-order vendor. 

Demo copies and a good catalog could make EOS take off like a rocket. 

As always, your letters are welcome at: 

JeffDeTray 
HOT CoCo 
80 Pine St. 

Peterborough, NH 03458 ■ 
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Tandy 200 24K$739 
ModeMOO 24KS510 



Color Computer II 
w/16K Basic $107.95 
W/64K Ext. Basic $179 



— Ji 


1 






Tandy 1000 $779 
Tandy 1000 HD $1539 




BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 



COMPUTERS 

Tandy 10001 Drive 128K 
Tandy 1000 HD 10 Meg. 256K 
Tandy 1200 HD 10 Meg. 256K 
Model IVD 64K with Deskmate 
PRINTERS 

Radio Shack DWP-105 
Radio Shack D MP- 130 
Radio Shack DMP-430 
Radio Shack CGP-220 
Radio Shack DWP-220 Daisy Wheel469.00 
Silver Reed EXP-550 Daisy Wheel 425.00 
StarSG-10 
StarSG-15 
Panasonic P-1091 
CITOH Prowriter 851 0AP + NLQ 
Toshiba 1340 
Okidata 192 
Epson LX-80 
Epson FX-185 
MODEMS 

Radio Shack DCM-3 Modem 52.00 
Radio Shack DCM-5 Modem 99.00 
Radio Shack DC Modem 2212 315.00 



779.00 
1539.00 
1599.00 

889.00 

160.00 
269.00 
660.00 
359.00 



245.00 
410.00 
275.00 
345.00 
585.00 
375.00 
245.00 
369.00 



COLOR COMPUTER MISC. 

Radio Shack Drive Controller 139.00 
Extended Basic Rom Kit 39.95 
64K Ram Upgrade Kit 39.00 
Radio Shack Deluxe Keyboard Kit 24.95 
HJL Keyboard Upgrade Kit 79.95 
COCO Max Y Cable 27.95 
Botek Serial to Parallel Conv. 69.95 
Radio Shack CCR-81 Recorder 52.00 
Radio Shack Deluxe Joystick 26.95 
Amdek Color 300 Monitor 265.00 
Amdek Video 300 Green Monitor 139.00 
Amdek Video 300 Amber Monitor 149.00 
Taxan Color 220 Monitor 245.00 
Tatung DM-12VLG Green Monitor 139.00 
Tatung DM-12VLA Amber Monitor 149.00 
Radio Shack VM-2 Green Monitor 129.00 
Mark Data Universal Video Driver 29.95 
COLOR COMPUTER SOFTWARE 

TAPE DISK 

Approach Control Simul. 29.95 34.95 
Worlds Of Flight 29.95 32.95 

Mustang P-51 Flight Simul. 29.95 34.95 
Spectral Typing Tutor 19.95 22.95 
Dungeon Quest 24.95 27.95 



Major Istar 24.95 
Sam Slueth Private Eye 24.95 
Mark Data Graphic Adven. 24.95 
Graphicom (disk only) 
COCOMaxbyColorware 69.95 
Color ComE (rom) 49.95 

AutoTerm by PXE Computing39.95 
Key-264K by Key Color 39.95 
Telewriter 64 49.95 
Deft Pascal Workbench 
Deft Extra 

Pro Color File Enhanced 2.0 
Telegraphies by Derringer 



Elite Calc 
Elite Word 
Elite File (disk only) 
DynaCalc (disk only) 
Word Pack II by PBJ 
VIP Writer (tape & disk) 
VIP Integrated Library (disk) 



69.95 
69.95 



27.95 
27.95 
27.95 
29.95 
69.95 
49.95 
49.95 
44.95 
59.95 
89.95 
39.95 
59.95 
24.95 
69.95 
69.95 
74.50 
99.95 

134.95 
69.95 

149.95 



Order any 2 software pieces listed 
and take 10% off their listed price. 
All Radio Shack software 10% off list. 
Send for complete list. 



CALL TOLL FREE 
1-800-343-8124 

• LOWEST POSSIBLE PRICES 

• BEST POSSIBLE WARRANTY 

• KNOWLEDGEABLE SALES STAFF 

• TIMELY DELIVERY 

• SHOPPING CONVENIENCE 



com 




P.O. Box 1094 
480 King Street 
Littleton, MA 01460 



SINCE 1973 



IN MASSACHUSETTS CALL (617) 486-3193 



TRS-80 is a registered trademark of Tandy Corp. 



The HJL-57 Keyboard 





Compare it with the rest. 
Then, buy the best. 



If you've been thinking about 
spending good money on a new 
keyboard for your Color Computer, 
why not get a good keyboard for 
your money? 

Designed from scratch, the 
HJL-57 Professional Keyboard 
is built to unlock ALL the 
potential performance of your 
Color Computer. Now, you can 
do real word processing and sail 
through lengthy listings...with 
maximum speed; minimum errors. 

At $79.95, the HJL-57 is reason- 
ably priced, but you can find 
other CoCo keyboards for a few 
dollars less. So, before you buy, 
we suggest that you compare. 

Compare Design. 

The ergonomically-superior 
HJL-57 has sculptured, low 
profile keycaps; and the three- 
color layout is identical to 
the original CoCo keyboard. 

Compare Construction. 

The HJL-57 has a rigidized 
aluminum baseplate for solid, 
no-flex mounting. Switch contacts 
are rated for 100 million cycles 
minimum, and covered by a spill- 
proof membrane. 



Compare Performance. 

Offering more than full-travel, 
bounce-proof keyswitches, the 
HJL-57 has RFI/EMI shielding that 
eliminates irritating noise on 
displays; and four user-definable 
function keys (one latchable), 
specially-positioned to avoid 
inadvertent actuation. 



Free Function Key Program 

Your HJL-57 kit includes usage 
instructions and decimal codes 
produced by the function keys, 
plus a free sample program 
that defines the function 
keys as follows: F1 = Screen 
dump to printer. F2 = Repeat 
key (latching). F3 = Lower case 
upper case flip (if you have 
lower case capability). F4 = 
Control key; subtracts 64 from 
the ASCII value of any key 
pressed. Runs on disc or tape; 
extended or standard Basic. 



Compare Installation. 

Carefully engineered for easy 
installation, the HJL-57 requires 
no soldering, drilling or gluing. 
Simply plug it in and drop it 
right on the original CoCo 
mounting posts. Kit includes a 
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new bezel for a totally finished 
conversion. 

Compare Warranties. 

The HJL-57 is built so well, it 
carries a full, one-year warranty. 
And, it is sold with an exclusive 
15-day money-back guarantee. 

Compare Value. 

You know that a bargain is a 
bargain only so long as it lasts. 
If you shop carefully, we think 
you will agree...The HJL-57 is 
the last keyboard your CoCo will 
ever need. And that's real value. 

Order Today. 

Only $79.95, the HJL-57 is 
available for immediate shipment 
for either the original Color 
Computer (sold prior to October, 
1982) or the F-version and TDP-100 
(introduced in October, 1982), 
and the new 64K CoCo. flow also 
available for CoCo 2. 

call Toll Free 
1-800-828-6968 

In New York 1-800-462-4891 

PRODUCTS 

Div. of Touchstone Technology Inc. 
955 Buffalo Road • P.O. Box 24954 
Rochester, New York 14624 

Telephone: (716) 235-8358 



